R Under development (unstable) (2024-03-19 r86153 ucrt) -- "Unsuffered Consequences" Copyright (C) 2024 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. > > library(lattice) > > ## Output of summary() methods > > d <- list(x = 1:10, y = 1:10, g = gl(2, 5)) > > summary(barchart(factor(y) ~ x, d)) # S3method(barchart, formula) Call: barchart(factor(y) ~ x, d) Number of observations: [1] 10 > summary(barchart(unclass(Titanic))) # S3method(barchart, array) Call: barchart(unclass(Titanic)) Number of observations: Age Sex Child Adult Male 8 8 Female 8 8 > # S3method(barchart, default) > summary(barchart(VADeaths)) # S3method(barchart, matrix) Call: barchart(VADeaths) Number of observations: [1] 20 > summary(barchart(precip)) # S3method(barchart, numeric) Call: barchart(precip) Number of observations: [1] 70 > summary(barchart(Titanic)) # S3method(barchart, table) Call: barchart(Titanic) Number of observations: Age Sex Child Adult Male 8 8 Female 8 8 > > summary(bwplot(g ~ x, d)) # S3method(bwplot, formula) Call: bwplot(g ~ x, d) Number of observations: [1] 10 > summary(bwplot(precip)) # S3method(bwplot, numeric) Call: bwplot(precip) Number of observations: [1] 70 > > summary(densityplot( ~ x | g, d)) # S3method(densityplot, formula) Call: densityplot(~x | g, d) Number of observations: g 1 2 5 5 > summary(densityplot(precip)) # S3method(densityplot, numeric) Call: densityplot(precip) Number of observations: [1] 70 > > summary(dotplot(factor(y) ~ x, d)) # S3method(dotplot, formula) Call: dotplot(factor(y) ~ x, d) Number of observations: [1] 10 > summary(dotplot(unclass(Titanic))) # S3method(dotplot, array) Call: dotplot(unclass(Titanic)) Number of observations: Age Sex Child Adult Male 8 8 Female 8 8 > # S3method(dotplot, default) > summary(dotplot(VADeaths)) # S3method(dotplot, matrix) Call: dotplot(VADeaths) Number of observations: [1] 20 > summary(dotplot(precip)) # S3method(dotplot, numeric) Call: dotplot(precip) Number of observations: [1] 70 > summary(dotplot(Titanic)) # S3method(dotplot, table) Call: dotplot(Titanic) Number of observations: Age Sex Child Adult Male 8 8 Female 8 8 > > > ## S3method(histogram, formula) > ## S3method(histogram, factor) > ## S3method(histogram, numeric) > ## S3method(qqmath, formula) > ## S3method(qqmath, numeric) > ## S3method(stripplot, formula) > ## S3method(stripplot, numeric) > ## S3method(qq, formula) > > summary(xyplot(y ~ x | g, data = d)) # S3method(xyplot, formula) Call: xyplot(y ~ x | g, data = d) Number of observations: g 1 2 5 5 > summary(with(d, xyplot(y ~ x | g))) # S3method(xyplot, formula) Call: xyplot(y ~ x | g) Number of observations: g 1 2 5 5 > summary(xyplot(sunspot.year)) # S3method(xyplot, ts) Call: xyplot(sunspot.year) Number of observations: [1] 289 > > ## S3method(levelplot, formula) > ## S3method(levelplot, table) > ## S3method(levelplot, array) > ## S3method(levelplot, matrix) > ## S3method(contourplot, formula) > ## S3method(contourplot, table) > ## S3method(contourplot, array) > ## S3method(contourplot, matrix) > ## S3method(cloud, formula) > ## S3method(cloud, matrix) > ## S3method(cloud, table) > ## S3method(wireframe, formula) > ## S3method(wireframe, matrix) > ## S3method(splom, formula) > ## S3method(splom, matrix) > ## S3method(splom, data.frame) > > ## S3method(parallelplot, formula) > ## S3method(parallelplot, matrix) > ## S3method(parallelplot, data.frame) > > > > > > proc.time() user system elapsed 0.35 0.09 0.43