##
data(NYsite)
head(NYsite)
# Sample 4 sites randomly from the data NYdata.
r4<-spT.data.selection(data=NYsite, random=TRUE, num.rs=4)
# Choose purposively sites numbered as 2, 8, and 12, 15.
p4<-spT.data.selection(data=NYsite, random=FALSE, s=c(2,8,12,15))
# Check locations of datasets r4 and p4
spT.check.locations(fit.locations=r4, pred.locations=p4,
method="geodetic:km", tol=5)
#
spT.check.sites.inside(NYsite[,2:3],method="geodetic:km")
# if nothing appears then distances are alright
##
Run the code above in your browser using DataLab