14 lines
202 B
R
14 lines
202 B
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()
|