S.Wheaton <- matrix(c( 11.834, 0, 0, 0, 0, 0, 6.947, 9.364, 0, 0, 0, 0, 6.819, 5.091, 12.532, 0, 0, 0, 4.783, 5.028, 7.495, 9.986, 0, 0, -3.839, -3.889, -3.841, -3.625, 9.610, 0, -21.899, -18.831, -21.748, -18.775, 35.522, 450.288), 6, 6) rownames(S.Wheaton) <- colnames(S.Wheaton) <- c('Anomia67','Powerless67','Anomia71','Powerless71','Education','SEI')