packrat/lib-R/lattice/tests/dotplotscoping.R

postscript("dotplotscoping.ps")
library(lattice)

fubar <- function() {
    k <- 2
    kkk <- 1:10
    names(kkk) <- 1:10
    data = list(x=kkk)
    dotplot(~x^k + rnorm(10), data)
}

fubar()
dev.off()
UBC-MDS/Karl documentation built on May 22, 2019, 1:53 p.m.