## Not run: 
#     x <- linspace(-1, 1, 11)
#     y <- linspace(-1, 1, 11)
#     mgrid <- meshgrid(x, y)
#     Z <- mgrid$X^2 + mgrid$Y^2
#     xp <- yp <- linspace(-1, 1, 101)
# 
#     method <- "linear"
#     zp <- interp2(x, y, Z, xp, yp, method)
#     plot(xp, zp, type = "l", col = "blue")
# 
#     method = "nearest"
#     zp <- interp2(x, y, Z, xp, yp, method)
#     lines(xp, zp, col = "red")
#     grid()## End(Not run)
Run the code above in your browser using DataLab