n <- akima :: interp(
x, y, z, xo = seq(min(x), max(x), length = 100),
yo = seq(min(y), max(y), length = 100),
linear = TRUE, extrap = FALSE,
duplicate = "error", dupfun = NULL,
ncp = NULL)
n <- akima :: interp(
x, y, z, xo =