species1<-alt_bart
species2<-alt_cris
sps1top<-which(species1[,3] > quantile(species1[,3], probs=quantile, na.rm=T))
sps2top<-which(species2[,3] > quantile(species2[,3], probs=quantile, na.rm=T))
species1[which(sps1top %in% sps2top),]
species1<-alt_knul
species2<-alt_cali
sps1top<-which(species1[,3] > quantile(species1[,3], probs=quantile, na.rm=T))
sps2top<-which(species2[,3] > quantile(species2[,3], probs=quantile, na.rm=T))
species1[which(sps1top %in% sps2top),]
species1<-alt_land
species2<-alt_bart
sps1top<-which(species1[,3] > quantile(species1[,3], probs=quantile, na.rm=T))
sps2top<-which(species2[,3] > quantile(species2[,3], probs=quantile, na.rm=T))
species1[which(sps1top %in% sps2top),]
species1<-alt_land
species2<-alt_cris
sps1top<-which(species1[,3] > quantile(species1[,3], probs=quantile, na.rm=T))
sps2top<-which(species2[,3] > quantile(species2[,3], probs=quantile, na.rm=T))
species1[which(sps1top %in% sps2top),]
species1<-alt_land
species2<-alt_knul
sps1top<-which(species1[,3] > quantile(species1[,3], probs=quantile, na.rm=T))
sps2top<-which(species2[,3] > quantile(species2[,3], probs=quantile, na.rm=T))
species1[which(sps1top %in% sps2top),]
species1<-alt_podu
species2<-alt_knul
sps1top<-which(species1[,3] > quantile(species1[,3], probs=quantile, na.rm=T))
sps2top<-which(species2[,3] > quantile(species2[,3], probs=quantile, na.rm=T))
species1[which(sps1top %in% sps2top),]
###### LATITUDE ###########
species1<-lat_knul
species2<-lat_bart
sps1top<-which(species1[,3] > quantile(species1[,3], probs=quantile, na.rm=T))
sps2top<-which(species2[,3] > quantile(species2[,3], probs=quantile, na.rm=T))
species1[which(sps1top %in% sps2top),]
species1<-lat_land
species2<-lat_bart
sps1top<-which(species1[,3] > quantile(species1[,3], probs=quantile, na.rm=T))
sps2top<-which(species2[,3] > quantile(species2[,3], probs=quantile, na.rm=T))
species1[which(sps1top %in% sps2top),]
species1<-lat_land
species2<-lat_cris
sps1top<-which(species1[,3] > quantile(species1[,3], probs=quantile, na.rm=T))
sps2top<-which(species2[,3] > quantile(species2[,3], probs=quantile, na.rm=T))
species1[which(sps1top %in% sps2top),]
#### LONGITUDE ############
### cris bart
species1<-long_cris
species2<-long_bart
sps1top<-which(species1[,3] > quantile(species1[,3], probs=quantile, na.rm=T))
sps2top<-which(species2[,3] > quantile(species2[,3], probs=quantile, na.rm=T))
species1[which(sps1top %in% sps2top),]
### knul bart
species1<-long_knul
species2<-long_bart
sps1top<-which(species1[,3] > quantile(species1[,3], probs=quantile, na.rm=T))
sps2top<-which(species2[,3] > quantile(species2[,3], probs=quantile, na.rm=T))
species1[which(sps1top %in% sps2top),]
### knul cali
species1<-long_knul
species2<-long_cali
sps1top<-which(species1[,3] > quantile(species1[,3], probs=quantile, na.rm=T))
sps2top<-which(species2[,3] > quantile(species2[,3], probs=quantile, na.rm=T))
species1[which(sps1top %in% sps2top),]
### podu bart
species1<-long_podu
species2<-long_bart
sps1top<-which(species1[,3] > quantile(species1[,3], probs=quantile, na.rm=T))
sps2top<-which(species2[,3] > quantile(species2[,3], probs=quantile, na.rm=T))
species1[which(sps1top %in% sps2top),]
### land cris
### popp land