| Line 1... |
Line 1... |
| 1 |
### $Id: Orange.R,v 1.1 2003/12/11 07:16:04 ripley Exp $
|
1 |
### $Id: Orange.R,v 1.1 2003/12/11 07:16:04 ripley Exp $
|
| 2 |
### Growth of orange trees
|
2 |
### Growth of orange trees
|
| 3 |
### Draper and Smith (1981), Exercise 10.N, p. 524.
|
3 |
### Draper and Smith (1981), Exercise 10.N, p. 524.
|
| 4 |
"Orange" <-
|
4 |
"Orange" <-
|
| 5 |
structure(list
|
5 |
structure(list
|
| 6 |
(Tree = structure(ordered(c(2, 2, 2, 2, 2, 2, 2,
|
6 |
(Tree = structure(ordered(c(2, 2, 2, 2, 2, 2, 2,
|
| 7 |
4, 4, 4, 4, 4, 4, 4, 1, 1, 1, 1, 1, 1, 1, 5, 5, 5, 5, 5, 5, 5,
|
7 |
4, 4, 4, 4, 4, 4, 4, 1, 1, 1, 1, 1, 1, 1, 5, 5, 5, 5, 5, 5, 5,
|
| 8 |
3, 3, 3, 3, 3, 3, 3), levels=1:5),
|
8 |
3, 3, 3, 3, 3, 3, 3), levels=1:5),
|
| 9 |
class = c("ordered", "factor"),
|
9 |
class = c("ordered", "factor"),
|
| 10 |
.Label = c("3", "1", "5", "2", "4")),
|
10 |
.Label = c("3", "1", "5", "2", "4")),
|
| 11 |
age = c(118, 484, 664,
|
11 |
age = c(118, 484, 664,
|
| 12 |
1004, 1231, 1372, 1582, 118, 484, 664, 1004, 1231, 1372, 1582,
|
12 |
1004, 1231, 1372, 1582, 118, 484, 664, 1004, 1231, 1372, 1582,
|
| 13 |
118, 484, 664, 1004, 1231, 1372, 1582, 118, 484, 664, 1004, 1231,
|
13 |
118, 484, 664, 1004, 1231, 1372, 1582, 118, 484, 664, 1004, 1231,
|
| 14 |
1372, 1582, 118, 484, 664, 1004, 1231, 1372, 1582),
|
14 |
1372, 1582, 118, 484, 664, 1004, 1231, 1372, 1582),
|
| 15 |
circumference = c(30,
|
15 |
circumference = c(30,
|
| 16 |
58, 87, 115, 120, 142, 145, 33, 69, 111, 156, 172, 203, 203,
|
16 |
58, 87, 115, 120, 142, 145, 33, 69, 111, 156, 172, 203, 203,
|
| 17 |
30, 51, 75, 108, 115, 139, 140, 32, 62, 112, 167, 179, 209, 214,
|
17 |
30, 51, 75, 108, 115, 139, 140, 32, 62, 112, 167, 179, 209, 214,
|
| 18 |
30, 49, 81, 125, 142, 174, 177)),
|
18 |
30, 49, 81, 125, 142, 174, 177)),
|
| 19 |
row.names = 1:35,
|
19 |
row.names = 1:35,
|
| 20 |
class = c("nfnGroupedData", "nfGroupedData", "groupedData", "data.frame"),
|
20 |
class = c("nfnGroupedData", "nfGroupedData", "groupedData", "data.frame"),
|
| 21 |
formula = circumference ~ age | Tree,
|
21 |
formula = circumference ~ age | Tree,
|
| 22 |
labels = list(x = "Time since December 31, 1968",
|
22 |
labels = list(x = "Time since December 31, 1968", y = "Trunk circumference"),
|
| 23 |
y = "Trunk circumference"),
|
- |
|
| 24 |
units = list(x = "(days)", y = "(mm)"))
|
23 |
units = list(x = "(days)", y = "(mm)"))
|
| - |
|
24 |
environment(attr(Orange, "formula")) <- emptyenv()
|
The R Project SVN
R