The R Project SVN R-packages

Rev

Rev 202 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 202 Rev 1552
Line 1... Line 1...
1 
 
 1 
 
2 
postscript("temp.ps")
 2 
postscript("levelplot.ps")
3 
library(lattice)
 3 
library(lattice)
4 
 
 4 
 
5 
data(volcano)
 5 
data(volcano)
6 
 
 6 
 
- 
 
 7 
foo <-
7 
foo <- data.frame(z = as.vector(volcano), x = rep(1:87, 61), y = rep(1:61, each = 87))
 8 
    data.frame(z = as.vector(volcano),
- 
 
 9 
               x = rep(1:87, 61),
- 
 
 10 
               y = rep(1:61, each = 87))
8 
 
 11 
 
9 
levelplot(z ~ x * y, subset(foo, z > 150), contour = T)
 12 
levelplot(z ~ x * y, subset(foo, z > 150), contour = T)
10 
levelplot(z ~ x * y, foo, subset = z > 150, contour = T)
 13 
levelplot(z ~ x * y, foo, subset = z > 150, contour = T)
11 
contourplot(z ~ x * y, foo, subset = z > 150, cuts = 10)
 14 
contourplot(z ~ x * y, foo, subset = z > 150, cuts = 10)
12 
 
 15 
 
13 
## subset group interaction has problems:
 16 
## subset group interaction has problems:
14 
 
 17 
 
15 
data(iris)
 - 
 
16 
cloud(Sepal.Length ~ Petal.Length * Petal.Width,
18 
cloud(Sepal.Length ~ Petal.Length * Petal.Width,
17 
      data = iris, cex = 0.8, groups = Species, subpanel = panel.superpose,
19 
      data = iris, cex = 0.8, groups = Species, subpanel = panel.superpose,
18 
      main = "Stereo", screen = list(z = 20, x = -70, y = 0), subset = 30:60)
 20 
      main = "Stereo", screen = list(z = 20, x = -70, y = 0), subset = 30:60)
19 
 
 21 
 
20 
 
 22 
 
Line 25... Line 27...
25 
 
 27 
 
26 
## error
 28 
## error
27 
## wireframe(z ~ x * y, foo, subset = z > 150)
 29 
## wireframe(z ~ x * y, foo, subset = z > 150)
28 
 
 30 
 
29 
## what's this supposed to do ?
 31 
## what's this supposed to do ?
- 
 
 32 
## weird thing is, result is random
30 
wireframe(z + I(z + 100) ~ x * y, foo, subset = z > 150)
 33 
wireframe(z + I(z + 100) ~ x * y, foo, subset = z > 150)
31 
 
 34 
 
32 
 
 35 
 
33 
cloud(z ~ x * y, foo)
 36 
cloud(z ~ x * y, foo)
34 
cloud(z ~ x * y, foo, subset = z > 150)
 37 
cloud(z ~ x * y, foo, subset = z > 150)
Line 42... Line 45...
42 
volna <- volcano
 45 
volna <- volcano
43 
volna[20:40, 20:40] <- NA
 46 
volna[20:40, 20:40] <- NA
44 
levelplot(volna)
 47 
levelplot(volna)
45 
cloud(volna)
 48 
cloud(volna)
46 
 
 49 
 
47 
## error
 - 
 
48 
##wireframe(volna)
 50 
wireframe(volna)
49 
 
 51 
 
50 
## long format even worse, NA's clipped at the beginning
 52 
## long format: NA's clipped at the beginning (??)
51 
 
 53 
 
52 
 
 54 
 
53 
 
 55 
 
54 
splom(iris[,1:4], iris, groups = Species)
 56 
splom(iris[,1:4], iris, groups = Species)
55 
splom(iris[,1:4], iris, groups = Species, subset = 70:130, auto.key = T)
 57 
splom(iris[,1:4], iris, groups = Species, subset = 70:130, auto.key = T)