powered by
smooth.sspline(lon, lat, y, m = 2, smth = 0, lambda = 0)
smooth.sspline
data(WTdiff) subdat <- WTdiff[sample(nrow(WTdiff), 200), 2:4] attach(subdat) smooth.sspline(lon, lat, avgd) detach(subdat)
Run the code above in your browser using DataLab