"environmental" <-
structure(list(ozone = c(41, 36, 12, 18, 23, 19, 8, 16, 11, 14, 
18, 14, 34, 6, 30, 11, 1, 11, 4, 32, 23, 45, 115, 37, 29, 71, 
39, 23, 21, 37, 20, 12, 13, 135, 49, 32, 64, 40, 77, 97, 97, 
85, 10, 27, 7, 48, 35, 61, 79, 63, 16, 80, 108, 20, 52, 82, 50, 
64, 59, 39, 9, 16, 122, 89, 110, 44, 28, 65, 22, 59, 23, 31, 
44, 21, 9, 45, 168, 73, 76, 118, 84, 85, 96, 78, 73, 91, 47, 
32, 20, 23, 21, 24, 44, 21, 28, 9, 13, 46, 18, 13, 24, 16, 13, 
23, 36, 7, 14, 30, 14, 18, 20), radiation = c(190, 118, 149, 
313, 299, 99, 19, 256, 290, 274, 65, 334, 307, 78, 322, 44, 8, 
320, 25, 92, 13, 252, 223, 279, 127, 291, 323, 148, 191, 284, 
37, 120, 137, 269, 248, 236, 175, 314, 276, 267, 272, 175, 264, 
175, 48, 260, 274, 285, 187, 220, 7, 294, 223, 81, 82, 213, 275, 
253, 254, 83, 24, 77, 255, 229, 207, 192, 273, 157, 71, 51, 115, 
244, 190, 259, 36, 212, 238, 215, 203, 225, 237, 188, 167, 197, 
183, 189, 95, 92, 252, 220, 230, 259, 236, 259, 238, 24, 112, 
237, 224, 27, 238, 201, 238, 14, 139, 49, 20, 193, 191, 131, 
223), temperature = c(67, 72, 74, 62, 65, 59, 61, 69, 66, 68, 
58, 64, 66, 57, 68, 62, 59, 73, 61, 61, 67, 81, 79, 76, 82, 90, 
87, 82, 77, 72, 65, 73, 76, 84, 85, 81, 83, 83, 88, 92, 92, 89, 
73, 81, 80, 81, 82, 84, 87, 85, 74, 86, 85, 82, 86, 88, 86, 83, 
81, 81, 81, 82, 89, 90, 90, 86, 82, 80, 77, 79, 76, 78, 78, 77, 
72, 79, 81, 86, 97, 94, 96, 94, 91, 92, 93, 93, 87, 84, 80, 78, 
75, 73, 81, 76, 77, 71, 71, 78, 67, 76, 68, 82, 64, 71, 81, 69, 
63, 70, 75, 76, 68), wind = c(7.4, 8, 12.6, 11.5, 8.6, 13.8, 
20.1, 9.7, 9.2, 10.9, 13.2, 11.5, 12, 18.4, 11.5, 9.7, 9.7, 16.6, 
9.7, 12, 12, 14.9, 5.7, 7.4, 9.7, 13.8, 11.5, 8, 14.9, 20.7, 
9.2, 11.5, 10.3, 4, 9.2, 9.2, 4.6, 10.9, 5.1, 6.3, 5.7, 7.4, 
14.3, 14.9, 14.3, 6.9, 10.3, 6.3, 5.1, 11.5, 6.9, 8.6, 8, 8.6, 
12, 7.4, 7.4, 7.4, 9.2, 6.9, 13.8, 7.4, 4, 10.3, 8, 11.5, 11.5, 
9.7, 10.3, 6.3, 7.4, 10.9, 10.3, 15.5, 14.3, 9.7, 3.4, 8, 9.7, 
2.3, 6.3, 6.3, 6.9, 5.1, 2.8, 4.6, 7.4, 15.5, 10.9, 10.3, 10.9, 
9.7, 14.9, 15.5, 6.3, 10.9, 11.5, 6.9, 13.8, 10.3, 10.3, 8, 12.6, 
9.2, 10.3, 10.3, 16.6, 6.9, 14.3, 8, 11.5)), row.names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", 
"14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", 
"25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", 
"36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", 
"47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", 
"58", "59", "60", "61", "62", "63", "64", "65", "66", "67", "68", 
"69", "70", "71", "72", "73", "74", "75", "76", "77", "78", "79", 
"80", "81", "82", "83", "84", "85", "86", "87", "88", "89", "90", 
"91", "92", "93", "94", "95", "96", "97", "98", "99", "100", 
"101", "102", "103", "104", "105", "106", "107", "108", "109", 
"110", "111"), class = "data.frame", .Names = c("ozone", "radiation", 
"temperature", "wind"))