Running 'MASSch04.R' [3s]
  Running 'auto-key.R' [2s]
  Running 'barchart-width.R' [1s]
  Running 'call.R' [4s]
  Running 'colorkey-title.R' [1s]
  Running 'dataframe-methods.R' [1s]
  Running 'dates.R' [1s]
  Running 'dotplotscoping.R' [0s]
  Running 'fontsize.R' [1s]
  Running 'levelplot.R' [3s]
  Running 'scales.R' [3s]
  Running 'shade-wireframe.R' [7s]
  Running 'summary.R' [1s]
  Running 'temp.R' [4s]
  Running 'test.R' [5s]
  Running 'wireframe.R' [4s]
Running the tests in 'tests/dataframe-methods.R' failed.
Complete output:
  > pdf("dataframe-methods.pdf")
  > library(lattice)
  > 
  > mtcars <-
  +     within(mtcars,
  +            am <- factor(am, levels = c(0, 1),
  +                         labels = c("automatic", "manual")))
  > 
  > stripplot(mtcars, am ~ mpg)
  > bwplot(mtcars, am ~ mpg)
  > qq(mtcars, am ~ mpg)
  > qqmath(mtcars, ~ mpg | am)
  > histogram(mtcars, ~ mpg | am)
  > densityplot(mtcars, ~ mpg | am)
  > 
  > xyplot(mtcars, mpg ~ wt, groups = am)
  > levelplot(mtcars, mpg ~ wt * disp | am, panel = panel.levelplot.colors)
  Error in levelplot.formula(formula, x, ...) : 
    object 'panel.levelplot.colors' not found
  Calls: levelplot ... modifyList -> stopifnot -> levelplot -> levelplot.formula
  Execution halted
Running the tests in 'tests/levelplot.R' failed.
Complete output:
  > 
  > pdf("levelplot.pdf")
  > 
  > library(lattice)
  > 
  > data(volcano)
  > 
  > 
  > foo <-
  +     data.frame(z = as.vector(volcano),
  +                x = rep(log1p(1:87), 61),
  +                y = rep(1:61, each = 87))
  > 
  > system.time(print(levelplot(z ~ x * y, foo, contour = TRUE)))
     user  system elapsed 
     0.13    0.02    0.14 
  > 
  > system.time(print(levelplot(z ~ x * y, foo, contour = TRUE,
  +                             panel = panel.levelplot.raster)))
     user  system elapsed 
     0.08    0.00    0.08 
  Warning message:
  In (function (x, y, z, subscripts, at = pretty(z), ..., col.regions = regions$col,  :
    'x' values are not equispaced; output may be wrong
  > 
  > system.time(print(levelplot(z ~ x * y, foo, contour = TRUE,
  +                             region.type = "contour")))
     user  system elapsed 
     0.47    0.29    0.76 
  > 
  > levelplot(z ~ x * y, subset(foo, z > 150), contour = T)
  > 
  > ## region.type = "contour" does not support missing grid points
  > suppressWarnings(plot(levelplot(z ~ x * y, subset(foo, z > 150),
  +                                 contour = T,
  +                                 main = "Expect error",
  +                                 region.type = "contour")))
  > 
  > 
  > levelplot(z ~ x * y, foo, subset = z > 150, contour = T)
  > contourplot(z ~ x * y, foo, subset = z > 150, cuts = 10)
  > 
  > ## manual colorkey labels
  > levelplot(z ~ x * y, foo, subset = z > 150,
  +           colorkey = list(labels = list(at     = c(145, 150),
  +                                         labels = c("below min", 150))))
  > ## lattice <= 0.21-5 put the "below min" label at z=150
  > 
  > ## This should be an error because 'labels' are specified without 'at':
  > 
  > e <- 
  +     try(print(levelplot(z ~ x * y, foo, subset = z > 150,
  +                         colorkey = list(labels = list(labels = c("A", "B"))))),
  +         silent = TRUE)
  > stopifnot(inherits(e, "try-error"))
  > 
  > ## subset group interaction has problems (does it any longer?):
  > 
  > cloud(Sepal.Length ~ Petal.Length * Petal.Width, 
  +       data = iris, cex = 0.8, groups = Species, subpanel = panel.superpose, 
  +       main = "With subset", screen = list(z = 20, x = -70, y = 0), subset = 30:60)
  > 
  > cloud(Sepal.Length ~ Petal.Length * Petal.Width, 
  +       data = iris[30:60, ], cex = 0.8, groups = Species, subpanel = panel.superpose, 
  +       main = "Without subset", screen = list(z = 20, x = -70, y = 0))
  > 
  > 
  > levelplot(Sepal.Length ~ Petal.Length * Petal.Width, 
  +           data = iris, groups = Species, 
  +           subset = 30:60)
  > 
  > cloud(z ~ x * y, foo)
  > cloud(z ~ x * y, foo, subset = z > 150)
  > 
  > ## long format: NA's clipped at the beginning (??)
  > 
  > splom(~iris[,1:4], iris, groups = Species)
  > splom(~iris[,1:4], iris, groups = Species, subset = 70:130, auto.key = T)
  > 
  > parallel(~iris[,1:4] | Species, iris, subset = 30:130)
  Error: 'parallel' is defunct.
  Use 'parallelplot' instead.
  See help("Defunct")
  Execution halted