| ### $Id: Loblolly.R,v 1.1 2003/12/11 07:16:04 ripley Exp $ |
| ### Growth of Loblolly pine trees |
| ### Kung (1986), ASA Proc. of the Statistical Computing Section, 340-343. |
| "Loblolly" <- |
| structure(list |
| (height = c(4.51, 10.89, 28.72, 41.74, 52.7, 60.92, |
| 4.55, 10.92, 29.07, 42.83, 53.88, 63.39, 4.79, 11.37, 30.21, |
| 44.4, 55.82, 64.1, 3.91, 9.48, 25.66, 39.07, 50.78, 59.07, 4.81, |
| 11.2, 28.66, 41.66, 53.31, 63.05, 3.88, 9.4, 25.99, 39.55, 51.46, |
| 59.64, 4.32, 10.43, 27.16, 40.85, 51.33, 60.07, 4.57, 10.57, |
| 27.9, 41.13, 52.43, 60.69, 3.77, 9.03, 25.45, 38.98, 49.76, 60.28, |
| 4.33, 10.79, 28.97, 42.44, 53.17, 61.62, 4.38, 10.48, 27.93, |
| 40.2, 50.06, 58.49, 4.12, 9.92, 26.54, 37.82, 48.43, 56.81, 3.93, |
| 9.34, 26.08, 37.79, 48.31, 56.43, 3.46, 9.05, 25.85, 39.15, 49.12, |
| 59.49), |
| age = c(3, 5, 10, 15, 20, 25, 3, 5, 10, 15, 20, 25, 3, |
| 5, 10, 15, 20, 25, 3, 5, 10, 15, 20, 25, 3, 5, 10, 15, 20, 25, |
| 3, 5, 10, 15, 20, 25, 3, 5, 10, 15, 20, 25, 3, 5, 10, 15, 20, |
| 25, 3, 5, 10, 15, 20, 25, 3, 5, 10, 15, 20, 25, 3, 5, 10, 15, |
| 20, 25, 3, 5, 10, 15, 20, 25, 3, 5, 10, 15, 20, 25, 3, 5, 10, |
| 15, 20, 25), |
| Seed = ordered(c(10, 10, 10, 10, 10, 10, |
| 13, 13, 13, 13, 13, 13, 14, 14, 14, 14, 14, 14, 4, 4, 4, 4, 4, |
| 4, 12, 12, 12, 12, 12, 12, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, |
| 9, 9, 9, 9, 9, 9, 8, 8, 8, 8, 8, 8, 11, 11, 11, 11, 11, 11, 3, |
| 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 5, 5, 5, 5, |
| 5, 5), levels=1:14, |
| labels = c("329", "327", "325", "307", "331", "311", |
| "315", "321", "319", "301", "323", "309", "303", |
| "305"))), |
| row.names = c("1", "15", "29", |
| "43", "57", "71", "2", "16", "30", "44", "58", "72", "3", "17", |
| "31", "45", "59", "73", "4", "18", "32", "46", "60", "74", "5", |
| "19", "33", "47", "61", "75", "6", "20", "34", "48", "62", "76", |
| "7", "21", "35", "49", "63", "77", "8", "22", "36", "50", "64", |
| "78", "9", "23", "37", "51", "65", "79", "10", "24", "38", "52", |
| "66", "80", "11", "25", "39", "53", "67", "81", "12", "26", "40", |
| "54", "68", "82", "13", "27", "41", "55", "69", "83", "14", "28", |
| "42", "56", "70", "84"), |
| class = c("nfnGroupedData", "nfGroupedData", "groupedData", "data.frame"), |
| formula = height ~ age | Seed, |
| labels = list(x = "Age of tree", y = "Height of tree"), |
| units = list(x = "(yr)", y = "(ft)")) |
| environment(attr(Loblolly, "formula")) <- emptyenv() |