powered by
smooth.sspline
"predict"(object, lon, lat, grid=FALSE, ...)
subdat <- WT9397[sample(nrow(WT9397), 200), 2:4] attach(subdat) splobj <- smooth.sspline(lon, lat, avgt) predict(splobj, lon=seq(-180,180,len=50), lat=seq(-90,90,len=25), grid=TRUE) detach(subdat)
Run the code above in your browser using DataLab