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