"MathGrades" <-
structure(list(varnames = c("Mechanics", "Vectors", "Algebra", 
"Analysis", "Statistics"), means = structure(c(39.95, 50.59, 
50.6, 46.68, 42.31), .Names = c("Mechanics", "Vectors", "Algebra", 
"Analysis", "Statistics")), var = structure(c(302.29, 125.78, 
100.43, 105.07, 116.07, 125.78, 170.88, 84.19, 93.6, 97.89, 100.43, 
84.19, 111.6, 110.84, 120.49, 105.07, 93.6, 110.84, 217.88, 153.77, 
116.07, 97.89, 120.49, 153.77, 294.37), .Dim = as.integer(c(5, 
5)), .Dimnames = list(c("Mechanics", "Vectors", "Algebra", "Analysis", 
"Statistics"), c("Mechanics", "Vectors", "Algebra", "Analysis", 
"Statistics"))), cor = structure(c(1, 0.55, 0.55, 0.41, 0.39, 
0.55, 1, 0.61, 0.49, 0.44, 0.55, 0.61, 1, 0.71, 0.66, 0.41, 0.49, 
0.71, 1, 0.61, 0.39, 0.44, 0.66, 0.61, 1), .Dim = as.integer(c(5, 
5)), .Dimnames = list(c("Mechanics", "Vectors", "Algebra", "Analysis", 
"Statistics"), c("Mechanics", "Vectors", "Algebra", "Analysis", 
"Statistics"))), icdiag = structure(c(1.6, 1.8, 3.04, 2.18, 1.92
), .Names = c("Mechanics", "Vectors", "Algebra", "Analysis", 
"Statistics")), pcor = structure(c(1, -0.33, -0.23, 0, -0.02, 
-0.33, 1, -0.28, -0.08, -0.02, -0.23, -0.28, 1, -0.43, -0.36, 
0, -0.08, -0.43, 1, -0.25, -0.02, -0.02, -0.36, -0.25, 1), .Dim = as.integer(c(5, 
5)), .Dimnames = list(c("Mechanics", "Vectors", "Algebra", "Analysis", 
"Statistics"), c("Mechanics", "Vectors", "Algebra", "Analysis", 
"Statistics"))), pvecs = structure(list(Mechanics = structure(c(0.25, 
0.5, 0.25), .Names = c("High", "Med", "Low")), Vectors = structure(c(0.25, 
0.5, 0.25), .Names = c("High", "Med", "Low")), Algebra = structure(c(0.25, 
0.5, 0.25), .Names = c("High", "Med", "Low")), Analysis = structure(c(0.25, 
0.5, 0.25), .Names = c("High", "Med", "Low")), Statistics = structure(c(0.25, 
0.5, 0.25), .Names = c("High", "Med", "Low"))), .Names = c("Mechanics", 
"Vectors", "Algebra", "Analysis", "Statistics"))), .Names = c("varnames", 
"means", "var", "cor", "icdiag", "pcor", "pvecs"))