R Under development (unstable) (2023-10-21 r85382 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> 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: object 'panel.levelplot.colors' not found
> cloud(mtcars, mpg ~ wt * disp | am)
> 
> splom(mtcars[3:7])
> parallelplot(mtcars[3:7])
> 
> tmd(mtcars, mpg ~ wt)
> 
> ct.tab <- as.data.frame.table(xtabs(~ cyl + am, mtcars))
> 
> barchart(ct.tab, Cyl ~ Freq, groups = am)
Error in eval(substitute(groups), data, environment(formula)) : 
  ..1 used in an incorrect context, no ... to look in
Calls: barchart ... eval -> <Anonymous> -> bwplot.formula -> eval -> eval
> dotplot(ct.tab, Cyl ~ Freq, groups = am, auto.key = TRUE)
Error in eval(substitute(groups), data, environment(formula)) : 
  ..1 used in an incorrect context, no ... to look in
Calls: dotplot ... eval -> <Anonymous> -> bwplot.formula -> eval -> eval
> 
> g <- expand.grid(a = seq(-1, 1, length.out = 101),
+                  b = seq(-1, 1, length.out = 101),
+                  KEEP.OUT.ATTRS = FALSE)
> g <- within(g, {
+     z <- sinh(complex(real = 2 * pi* a, imaginary = 2 * pi * b))
+     arg <- Arg(z)
+     mod <- Mod(z)
+     re <- Re(z)
+     im <- Im(z)
+ })
> 
> levelplot(g, arg ~ a * b)
> contourplot(g, re ~ a * b)
> wireframe(g, im ~ a * b, shade = TRUE)
> 
> 
> proc.time()
   user  system elapsed 
   2.15    0.06    2.20