border = border.grid(lon, lat)
r = radspline(nknots = c(36, 36 * 4), border = border)
# default color scheme
plot(r)
# change color and point styles of points,
# and background of original domain
plot(r, blist = list(col = "yellow"),
glist = list(col = c("blue", "orange"),
pch = 3:4))
Run the code above in your browser using DataLab