## Not run:
# dem<-raster(dem,xmn=-180, xmx=180, ymn=-60, ymx=90)
# datpce <- precisionenv(dat, dem, x='x', y='y')
# datpce[datpce$envpreci==1,] #View records with possible precision problems
# ## End(Not run)
Run the code above in your browser using DataLab