Running examples in ‘akima-Ex.R’ failed
The error most likely occurred in:

> ### Name: interp
> ### Title: Gridded Bivariate Interpolation for Irregular Data
> ### Aliases: interp
> ### Keywords: dplot
> 
> ### ** Examples
> 
> data(akima)
> plot(y ~ x, data = akima, main = "akima example data")
> with(akima, text(x, y, formatC(z,dig=2), adj = -0.1))
> 
> ## linear interpolation
> akima.li <- interp(akima$x, akima$y, akima$z)
> li.zmin <- min(akima.li$z,na.rm=TRUE)
> li.zmax <- max(akima.li$z,na.rm=TRUE)
> breaks <- pretty(c(li.zmin,li.zmax),10)
> colors <- heat.colors(length(breaks)-1)
> with(akima.li, image  (x,y,z, breaks=breaks, col=colors))
> with(akima.li,contour(x,y,z, levels=breaks, add=TRUE))
> points (akima, pch = 3)
> 
> ## increase smoothness (using finer grid):
> akima.smooth <-
+     with(akima, interp(x, y, z, nx=100, ny=100))
> si.zmin <- min(akima.smooth$z,na.rm=TRUE)
> si.zmax <- max(akima.smooth$z,na.rm=TRUE)
> breaks <- pretty(c(si.zmin,si.zmax),10)
> colors <- heat.colors(length(breaks)-1)
> 
> image  (akima.smooth, main = "interp(<akima data>, *) on finer grid",
+         breaks=breaks, col=colors)
> contour(akima.smooth, add = TRUE, levels=breaks, col = "thistle")
> points(akima, pch = 3, cex = 2, col = "blue")
> 
> ## use triangulation package to show underlying triangulation:
> ## Not run: 
> ##D if(library(tripack, logical.return=TRUE))
> ##D    plot(tri.mesh(akima), add=TRUE, lty="dashed")
> ## End(Not run)
> ## use only 15 points (interpolation only within convex hull!)
> akima.part <- with(akima, interp(x[1:15], y[1:15], z[1:15]))
> p.zmin <- min(akima.part$z,na.rm=TRUE)
> p.zmax <- max(akima.part$z,na.rm=TRUE)
> breaks <- pretty(c(p.zmin,p.zmax),10)
> colors <- heat.colors(length(breaks)-1)
> 
> image(akima.part, breaks=breaks, col=colors)
> title("interp() on subset of only 15 points")
> contour(akima.part, levels=breaks, add=TRUE)
> points(akima$x[1:15],akima$y[1:15], col = "blue")
> 
> ## spline interpolation
> akima.spl <- with(akima, interp(x, y, z, nx=100, ny=100, linear=FALSE))
> 
> contour(akima.spl, main = "smooth  interp(*, linear = FALSE)")
Warning in min(x) : no non-missing arguments to min; returning Inf
Warning in max(x) : no non-missing arguments to max; returning -Inf
Error in contour.default(akima.spl, main = "smooth  interp(*, linear = FALSE)") : 
  no contour values
Calls: contour -> contour.default
Execution halted