# NOT RUN {
##
data(NYdata)
head(NYdata)
NYsite<-unique(NYdata[,2:3])
head(NYsite)
spT.keep.morethan.dist(NYsite,tol.dist=100)
# Including values
dat<-cbind(NYsite,value=rnorm(dim(NYsite)[[1]]))
head(dat)
spT.keep.morethan.dist(dat,tol.dist=100)
##
# }
Run the code above in your browser using DataLab