Visual check and filtering of data with IUCN EOOs Step 3/4

Many records fall outside the native range. We will refine the dataset removing those records:

> krameri_sp<-SpatialPoints(xy)
> ov<-over(krameri_sp, krameri_EOO)
> krameri<-krameri[!is.na(ov[,1]),]

And we plot again the occurrences on the map:

> plot(wrld_simpl)
> plot(krameri_EOO, col="cyan", add=T)
> xy<-cbind(krameri$lon,krameri$lat)
> points(xy, pch=21, bg="red",cex=0.5)

The occurences of P. krameri after the removal of occurrences falling outside the native range

Figure 1.3: The occurences of P. krameri after the removal of occurrences falling outside the native range