data/grip.R

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

"grip" <-
structure(list(UBP = c(168.208362272478, 161.414064961392, 163.234472810511, 
155.942901913807, 168.538777777594, 166.316329188353, 162.619053487789, 
157.802989974269, 171.652934125154, 165.139990663023, 164.952518870756, 
158.200801174058, 160.073902601563, 161.238327931846, 166.763501392816, 
161.833435207639, 162.790025081690, 157.579314806600, 165.224779766649, 
162.780416192414, 159.763173030424, 160.304911536362, 168.538146480937, 
164.468769405595, 166.713361313327, 173.031937449634, 173.253685786682, 
165.482526462328, 166.049821146617, 170.579436990733, 174.818166006035, 
166.822211167080, 165.277561135659, 174.866092405437, 173.005754060338, 
165.153151779071), person = structure(c(1, 1, 1, 2, 2, 2, 3, 
3, 3, 4, 4, 4, 1, 1, 1, 2, 2, 2, 3, 3, 3, 4, 4, 4, 1, 1, 1, 2, 
2, 2, 3, 3, 3, 4, 4, 4), .Label = c("1", "2", "3", "4"), class = "factor"), 
    grip.type = structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
    1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 2, 2, 2, 2, 2, 2, 
    2, 2, 2, 2, 2, 2), .Label = c("classic", "integrated", "modern"
    ), class = "factor"), replicate = c(1, 2, 3, 1, 2, 3, 1, 
    2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1, 2, 
    3, 1, 2, 3, 1, 2, 3, 1, 2, 3)), .Names = c("UBP", "person", 
"grip.type", "replicate"), 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"), class = "data.frame")