##
# Load 29 ozone monitoring locations in New York.
data(NYsite)
NYsite
coords <- as.matrix(NYsite[,c(3,2)])
# Find the knots coordinates
knots.coords <- spT.grid.coords(Longitude=c(max(coords[,1]),
min(coords[,1])), Latitude=c(max(coords[,2]),
min(coords[,2])),by=c(4,4))
knots.coords
##
Run the code above in your browser using DataLab