data/central.park.R

In jverzani/UsingR: Data Sets, Etc. for the Text "Using R for Introductory Statistics", Second Edition

"central.park" <-
structure(list(DY = 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), MAX = c(72, 75, 65, 63, 59, 61, 79, 60, 66, 71, 
64, 65, 61, 66, 69, 61, 62, 64, 76, 79, 64, 56, 56, 56, 62, 56, 
69, 69, 75, 79, 68), MIN = c(51, 52, 50, 48, 45, 45, 54, 53, 
51, 50, 53, 53, 51, 51, 50, 49, 47, 46, 48, 55, 55, 50, 50, 51, 
53, 51, 50, 54, 54, 61, 59), AVG = c(62, 64, 58, 56, 52, 53, 
67, 57, 59, 61, 59, 59, 56, 59, 60, 55, 55, 55, 62, 67, 60, 53, 
53, 54, 58, 54, 60, 62, 65, 70, 64), DEP = c(4, 6, 0, -3, -7, 
-7, 7, -3, -1, 0, -2, -2, -6, -3, -2, -8, -8, -8, -2, 3, -4, 
-12, -12, -11, -7, -12, -6, -4, -2, 3, -3), HDD = c(3, 1, 7, 
9, 13, 12, 0, 8, 6, 4, 6, 6, 9, 6, 5, 10, 10, 10, 3, 0, 5, 12, 
12, 11, 7, 11, 5, 3, 0, 0, 1), CDD = c(0, 0, 0, 0, 0, 0, 2, 0, 
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
5, 0), WTR = structure(c(5, 12, 1, 1, 6, 1, 9, 10, 3, 1, 3, 4, 
15, 1, 1, 1, 1, 1, 1, 1, 11, 3, 8, 7, 2, 14, 1, 5, 1, 10, 13), .Label = c("0.00", 
"0.01", "0.02", "0.03", "0.04", "0.05", "0.09", "0.14", "0.16", 
"0.19", "0.27", "0.29", "0.59", "1.28", "T"), class = "factor"), 
    SNW = c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), DPTH = structure(c(1, 
    1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 2, 
    1, 2, 2, 1, 1, 2, 2, 1, 2, 2, 1), .Label = c("0", "M"), class = "factor"), 
    SPD = c(5.8, 7, 8.5, 2.8, 4.6, 4.5, 5.3, 8, 4.5, 3.7, 5.7, 
    6, 9.3, 6.5, 6.4, 13.3, 7.8, 5, 3.1, 4.1, 4.4, 10.9, 9.7, 
    9.7, 4.3, 8.6, 3.9, 5.1, 5.8, 4.6, 5.4), SPD1 = c(12, 17, 
    16, 10, 13, 10, 14, 17, 12, 12, 15, 21, 17, 14, 14, 23, 18, 
    16, 10, 13, 12, 20, 16, 21, 12, 26, 10, 17, 13, 13, 14), 
    DIR = c(180, 160, 40, 150, 160, 90, 50, 70, 220, 220, 130, 
    250, 270, 290, 100, 60, 50, 60, 170, 230, 280, 60, 70, 60, 
    130, 60, 140, 240, 280, 240, 80), MIN2 = structure(c(1, 2, 
    2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 1, 2, 2, 2, 
    1, 1, 1, 1, 1, 2, 2, 1, 1, 1), .Label = c("0", "M"), class = "factor"), 
    PSBL = structure(c(1, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 2, 
    2, 2, 2, 2, 1, 2, 2, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1), .Label = c("0", 
    "M"), class = "factor"), S.S = c(5, 4, 4, 0, 4, 7, 1, 10, 
    6, 2, 10, 7, 8, 8, 3, 7, 5, 0, 0, 0, 0, 10, 10, 10, 10, 10, 
    0, 6, 1, 3, 5), WX = c(18, 1, NA, NA, 1, 18, 18, 1, 18, 18, 
    1, 18, NA, NA, NA, NA, NA, 1, NA, NA, 1, 1, 1, 1, 18, 1, 
    NA, 18, 18, 18, 18), SPD3 = c(17, 22, 26, 14, 17, 14, 17, 
    25, 16, 17, 22, 29, 26, 18, 18, 32, 25, 21, 16, 18, 15, 26, 
    22, 25, 15, 37, 15, 26, 18, 18, 21), DR = c(170, 350, 40, 
    190, 130, 70, 60, 70, 230, 220, 140, 250, 290, 290, 70, 70, 
    70, 60, 80, 190, 250, 60, 70, 50, 130, 70, 170, 240, 220, 
    230, 160)), .Names = c("DY", "MAX", "MIN", "AVG", "DEP", 
"HDD", "CDD", "WTR", "SNW", "DPTH", "SPD", "SPD1", "DIR", "MIN2", 
"PSBL", "S.S", "WX", "SPD3", "DR"), class = "data.frame", 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"))