last fixes (plot titles in examples)

man/interp.Rd

@@ -169,7 +169,8 @@ if(library(tripack, logical.return=TRUE))
 
 # use only 15 points (interpolation only within convex hull!)
 akima.part <- with(akima, interp(x[1:15], y[1:15], z[1:15]))
-image  (akima.part, "interp() on subset of only 15 points")
+image(akima.part)
+title("interp() on subset of only 15 points")
 contour(akima.part, add=TRUE)
 points(akima$x[1:15],akima$y[1:15], col = "blue")
 
@@ -202,7 +203,7 @@ warm.pal <- function(n) hcl(h = seq(120, 0, length = n) - 30)
 
 filled.contour(akima.spl, color.palette = full.pal,
         plot.axes = { axis(1); axis(2);
-                      title("smooth  interp(*, linear = FALSE");
+                      title("smooth  interp(*, linear = FALSE)");
                       points(akima, pch = 3, col= hcl(c=100, l = 20))})
 # no extrapolation!