"swiss" <-
structure(list(Fertility = c(0.802, 0.831, 0.925, 0.858, 0.769, 0.761, 
0.838, 0.924, 0.824, 0.829, 0.871, 0.641, 0.669, 0.689, 0.617, 0.683, 0.717, 
0.557, 0.543, 0.651, 0.655, 0.65, 0.566, 0.574, 0.725, 0.742, 0.72, 0.605, 
0.583, 0.654, 0.755, 0.693, 0.773, 0.705, 0.794, 0.65, 0.922, 0.793, 0.704, 
0.657, 0.727, 0.644, 0.776, 0.676, 0.35, 0.447, 0.428), Agriculture = c(0.17, 
0.451, 0.397, 0.365, 0.435, 0.353, 0.702, 0.678, 0.533, 0.452, 0.645, 0.62, 
0.675, 0.607, 0.693, 0.726, 0.34, 0.194, 0.152, 0.73, 0.598, 0.551, 0.509, 
0.541, 0.712, 0.581, 0.635, 0.608, 0.268, 0.495, 0.859, 0.849, 0.897, 0.782, 
0.649, 0.759, 0.846, 0.631, 0.384, 0.077, 0.167, 0.176, 0.376, 0.187, 0.012, 
0.466, 0.277), Examination = c(0.15, 0.06, 0.05, 0.12, 0.17, 0.09, 0.16, 
0.14, 0.12, 0.16, 0.14, 0.21, 0.14, 0.19, 0.22, 0.18, 0.17, 0.26, 0.31, 
0.19, 0.22, 0.14, 0.22, 0.2, 0.12, 0.14, 0.06, 0.16, 0.25, 0.15, 0.03, 
0.07, 0.05, 0.12, 0.07, 0.09, 0.03, 0.13, 0.26, 0.29, 0.22, 0.35, 0.15, 
0.25, 0.37, 0.16, 0.22), Education = c(0.12, 0.09, 0.05, 0.07, 0.15, 0.07, 
0.07, 0.08, 0.07, 0.13, 0.06, 0.12, 0.07, 0.12, 0.05, 0.02, 0.08, 0.28, 
0.2, 0.09, 0.1, 0.03, 0.12, 0.06, 0.01, 0.08, 0.03, 0.1, 0.19, 0.08, 0.02, 
0.06, 0.02, 0.06, 0.03, 0.09, 0.03, 0.13, 0.12, 0.11, 0.13, 0.32, 0.07, 
0.07, 0.53, 0.29, 0.29), Catholic = c(9.96, 84.84, 93.4, 33.77, 5.16, 90.57, 
92.85, 97.16, 97.67, 91.38, 98.61, 8.52, 2.27, 4.43, 2.82, 24.2, 3.3, 12.11, 
2.15, 2.84, 5.23, 4.52, 15.14, 4.2, 2.4, 5.23, 2.56, 7.72, 18.46, 6.1, 
99.71, 99.68, 100, 98.96, 98.22, 99.06, 99.46, 96.83, 5.62, 13.79, 11.22, 
16.92, 4.97, 8.65, 42.34, 50.43, 58.33), Infant.Mortality = c(0.222, 0.222, 
0.202, 0.203, 0.206, 0.266, 0.236, 0.249, 0.21, 0.244, 0.245, 0.165, 0.191, 
0.227, 0.187, 0.212, 0.2, 0.202, 0.108, 0.2, 0.18, 0.224, 0.167, 0.153, 
0.21, 0.238, 0.18, 0.163, 0.209, 0.225, 0.151, 0.198, 0.183, 0.194, 0.202, 
0.178, 0.163, 0.181, 0.203, 0.205, 0.189, 0.23, 0.2, 0.195, 0.18, 0.182, 
0.193)), 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"), class = "data.frame")