(def source "Data from \"Multivariate Statistics A practical approach\", by Bernhard Flury and Hans Riedwyl, Chapman and Hall, 1988 Tables 1.1 and 1.2 pp. 5-8. Six measurements made on 100 genuine Swiss banknotes and 100 counterfeit ones.") (def names '("Status" "Length" "Left" "Right" "Bottom" "Top" "Diagonal")) (def info '( "0 = genuine, 1 = counterfeit, mm" "Length of bill, mm" "Width of left edge, mm" "Width of right edge, mm" "Bottom margin width, mm" "Top margin width, mm" "Length of image diagonal, mm")) (def data (transpose (split-list '( 1 1 214.8 131.0 131.1 9.0 9.7 141.0 2 1 214.6 129.7 129.7 8.1 9.5 141.7 3 1 214.8 129.7 129.7 8.7 9.6 142.2 4 1 214.8 129.7 129.6 7.5 10.4 142.0 5 1 215.0 129.6 129.7 10.4 7.7 141.8 6 1 215.7 130.8 130.5 9.0 10.1 141.4 7 1 215.5 129.5 129.7 7.9 9.6 141.6 8 1 214.5 129.6 129.2 7.2 10.7 141.7 9 1 214.9 129.4 129.7 8.2 11.0 141.9 10 1 215.2 130.4 130.3 9.2 10.0 140.7 11 1 215.3 130.4 130.3 7.9 11.7 141.8 12 1 215.1 129.5 129.6 7.7 10.5 142.2 13 1 215.2 130.8 129.6 7.9 10.8 141.4 14 1 214.7 129.7 129.7 7.7 10.9 141.7 15 1 215.1 129.9 129.7 7.7 10.8 141.8 16 1 214.5 129.8 129.8 9.3 8.5 141.6 17 1 214.6 129.9 130.1 8.2 9.8 141.7 18 1 215.0 129.9 129.7 9.0 9.0 141.9 19 1 215.2 129.6 129.6 7.4 11.5 141.5 20 1 214.7 130.2 129.9 8.6 10.0 141.9 21 1 215.0 129.9 129.3 8.4 10.0 141.4 22 1 215.6 130.5 130.0 8.1 10.3 141.6 23 1 215.3 130.6 130.0 8.4 10.8 141.5 24 1 215.7 130.2 130.0 8.7 10.0 141.6 25 1 215.1 129.7 129.9 7.4 10.8 141.1 26 1 215.3 130.4 130.4 8.0 11.0 142.3 27 1 215.5 130.2 130.1 8.9 9.8 142.4 28 1 215.1 130.3 130.3 9.8 9.5 141.9 29 1 215.1 130.0 130.0 7.4 10.5 141.8 30 1 214.8 129.7 129.3 8.3 9.0 142.0 31 1 215.2 130.1 129.8 7.9 10.7 141.8 32 1 214.8 129.7 129.7 8.6 9.1 142.3 33 1 215.0 130.0 129.6 7.7 10.5 140.7 34 1 215.6 130.4 130.1 8.4 10.3 141.0 35 1 215.9 130.4 130.0 8.9 10.6 141.4 36 1 214.6 130.2 130.2 9.4 9.7 141.8 37 1 215.5 130.3 130.0 8.4 9.7 141.8 38 1 215.3 129.9 129.4 7.9 10.0 142.0 39 1 215.3 130.3 130.1 8.5 9.3 142.1 40 1 213.9 130.3 129.0 8.1 9.7 141.3 41 1 214.4 129.8 129.2 8.9 9.4 142.3 42 1 214.8 130.1 129.6 8.8 9.9 140.9 43 1 214.9 129.6 129.4 9.3 9.0 141.7 44 1 214.9 130.4 129.7 9.0 9.8 140.9 45 1 214.8 129.4 129.1 8.2 10.2 141.0 46 1 214.3 129.5 129.4 8.3 10.2 141.8 47 1 214.8 129.9 129.7 8.3 10.2 141.5 48 1 214.8 129.9 129.7 7.3 10.9 142.0 49 1 214.6 129.7 129.8 7.9 10.3 141.1 50 1 214.5 129.0 129.6 7.8 9.8 142.0 51 1 214.6 129.8 129.4 7.2 10.0 141.3 52 1 215.3 130.6 130.0 9.5 9.7 141.1 53 1 214.5 130.1 130.0 7.8 10.9 140.9 54 1 215.4 130.2 130.2 7.6 10.9 141.6 55 1 214.5 129.4 129.5 7.9 10.0 141.4 56 1 215.2 129.7 129.4 9.2 9.4 142.0 57 1 215.7 130.0 129.4 9.2 10.4 141.2 58 1 215.0 129.6 129.4 8.8 9.0 141.1 59 1 215.1 130.1 129.9 7.9 11.0 141.3 60 1 215.1 130.0 129.8 8.2 10.3 141.4 61 1 215.1 129.6 129.3 8.3 9.9 141.6 62 1 215.3 129.7 129.4 7.5 10.5 141.5 63 1 215.4 129.8 129.4 8.0 10.6 141.5 64 1 214.5 130.0 129.5 8.0 10.8 141.4 65 1 215.0 130.0 129.8 8.6 10.6 141.5 66 1 215.2 130.6 130.0 8.8 10.6 140.8 67 1 214.6 129.5 129.2 7.7 10.3 141.3 68 1 214.8 129.7 129.3 9.1 9.5 141.5 69 1 215.1 129.6 129.8 8.6 9.8 141.8 70 1 214.9 130.2 130.2 8.0 11.2 139.6 71 1 213.8 129.8 129.5 8.4 11.1 140.9 72 1 215.2 129.9 129.5 8.2 10.3 141.4 73 1 215.0 129.6 130.2 8.7 10.0 141.2 74 1 214.4 129.9 129.6 7.5 10.5 141.8 75 1 215.2 129.9 129.7 7.2 10.6 142.1 76 1 214.1 129.6 129.3 7.6 10.7 141.7 77 1 214.9 129.9 130.1 8.8 10.0 141.2 78 1 214.6 129.8 129.4 7.4 10.6 141.0 79 1 215.2 130.5 129.8 7.9 10.9 140.9 80 1 214.6 129.9 129.4 7.9 10.0 141.8 81 1 215.1 129.7 129.7 8.6 10.3 140.6 82 1 214.9 129.8 129.6 7.5 10.3 141.0 83 1 215.2 129.7 129.1 9.0 9.7 141.9 84 1 215.2 130.1 129.9 7.9 10.8 141.3 85 1 215.4 130.7 130.2 9.0 11.1 141.2 86 1 215.1 129.9 129.6 8.9 10.2 141.5 87 1 215.2 129.9 129.7 8.7 9.5 141.6 88 1 215.0 129.6 129.2 8.4 10.2 142.1 89 1 214.9 130.3 129.9 7.4 11.2 141.5 90 1 215.0 129.9 129.7 8.0 10.5 142.0 91 1 214.7 129.7 129.3 8.6 9.6 141.6 92 1 215.4 130.0 129.9 8.5 9.7 141.4 93 1 214.9 129.4 129.5 8.2 9.9 141.5 94 1 214.5 129.5 129.3 7.4 10.7 141.5 95 1 214.7 129.6 129.5 8.3 10.0 142.0 96 1 215.6 129.9 129.9 9.0 9.5 141.7 97 1 215.0 130.4 130.3 9.1 10.2 141.1 98 1 214.4 129.7 129.5 8.0 10.3 141.2 99 1 215.1 130.0 129.8 9.1 10.2 141.5 100 1 214.7 130.0 129.4 7.8 10.0 141.2 101 2 214.4 130.1 130.3 9.7 11.7 139.8 102 2 214.9 130.5 130.2 11.0 11.5 139.5 103 2 214.9 130.3 130.1 8.7 11.7 140.2 104 2 215.0 130.4 130.6 9.9 10.9 140.3 105 2 214.7 130.2 130.3 11.8 10.9 139.7 106 2 215.0 130.2 130.2 10.6 10.7 139.9 107 2 215.3 130.3 130.1 9.3 12.1 140.2 108 2 214.8 130.1 130.4 9.8 11.5 139.9 109 2 215.0 130.2 129.9 10.0 11.9 139.4 110 2 215.2 130.6 130.8 10.4 11.2 140.3 111 2 215.2 130.4 130.3 8.0 11.5 139.2 112 2 215.1 130.5 130.3 10.6 11.5 140.1 113 2 215.4 130.7 131.1 9.7 11.8 140.6 114 2 214.9 130.4 129.9 11.4 11.0 139.9 115 2 215.1 130.3 130.0 10.6 10.8 139.7 116 2 215.5 130.4 130.0 8.2 11.2 139.2 117 2 214.7 130.6 130.1 11.8 10.5 139.8 118 2 214.7 130.4 130.1 12.1 10.4 139.9 119 2 214.8 130.5 130.2 11.0 11.0 140.0 120 2 214.4 130.2 129.9 10.1 12.0 139.2 121 2 214.8 130.3 130.4 10.1 12.1 139.6 122 2 215.1 130.6 130.3 12.3 10.2 139.6 123 2 215.3 130.8 131.1 11.6 10.6 140.2 124 2 215.1 130.7 130.4 10.5 11.2 139.7 125 2 214.7 130.5 130.5 9.9 10.3 140.1 126 2 214.9 130.0 130.3 10.2 11.4 139.6 127 2 215.0 130.4 130.4 9.4 11.6 140.2 128 2 215.5 130.7 130.3 10.2 11.8 140.0 129 2 215.1 130.2 130.2 10.1 11.3 140.3 130 2 214.5 130.2 130.6 9.8 12.1 139.9 131 2 214.3 130.2 130.0 10.7 10.5 139.8 132 2 214.5 130.2 129.8 12.3 11.2 139.2 133 2 214.9 130.5 130.2 10.6 11.5 139.9 134 2 214.6 130.2 130.4 10.5 11.8 139.7 135 2 214.2 130.0 130.2 11.0 11.2 139.5 136 2 214.8 130.1 130.1 11.9 11.1 139.5 137 2 214.6 129.8 130.2 10.7 11.1 139.4 138 2 214.9 130.7 130.3 9.3 11.2 138.3 139 2 214.6 130.4 130.4 11.3 10.8 139.8 140 2 214.5 130.5 130.2 11.8 10.2 139.6 141 2 214.8 130.2 130.3 10.0 11.9 139.3 142 2 214.7 130.0 129.4 10.2 11.0 139.2 143 2 214.6 130.2 130.4 11.2 10.7 139.9 144 2 215.0 130.5 130.4 10.6 11.1 139.9 145 2 214.5 129.8 129.8 11.4 10.0 139.3 146 2 214.9 130.6 130.4 11.9 10.5 139.8 147 2 215.0 130.5 130.4 11.4 10.7 139.9 148 2 215.3 130.6 130.3 9.3 11.3 138.1 149 2 214.7 130.2 130.1 10.7 11.0 139.4 150 2 214.9 129.9 130.0 9.9 12.3 139.4 151 2 214.9 130.3 129.9 11.9 10.6 139.8 152 2 214.6 129.9 129.7 11.9 10.1 139.0 153 2 214.6 129.7 129.3 10.4 11.0 139.3 154 2 214.5 130.1 130.1 12.1 10.3 139.4 155 2 214.5 130.3 130.0 11.0 11.5 139.5 156 2 215.1 130.0 130.3 11.6 10.5 139.7 157 2 214.2 129.7 129.6 10.3 11.4 139.5 158 2 214.4 130.1 130.0 11.3 10.7 139.2 159 2 214.8 130.4 130.6 12.5 10.0 139.3 160 2 214.6 130.6 130.1 8.1 12.1 137.9 162 2 215.6 130.1 129.7 7.4 12.2 138.4 162 2 214.9 130.5 130.1 9.9 10.2 138.1 163 2 214.6 130.1 130.0 11.5 10.6 139.5 164 2 214.7 130.1 130.2 11.6 10.9 139.1 165 2 214.3 130.3 130.0 11.4 10.5 139.8 166 2 215.1 130.3 130.6 10.3 12.0 139.7 167 2 216.3 130.7 130.4 10.0 10.1 138.8 168 2 215.6 130.4 130.1 9.6 11.2 138.6 169 2 214.8 129.9 129.8 9.6 12.0 139.6 170 2 214.9 130.0 129.9 11.4 10.9 139.7 171 2 213.9 130.7 130.5 8.7 11.5 137.8 172 2 214.2 130.6 130.4 12.0 10.2 139.6 173 2 214.8 130.5 130.3 11.8 10.5 139.4 174 2 214.8 129.6 130.0 10.4 11.6 139.2 175 2 214.8 130.1 130.0 11.4 10.5 139.6 176 2 214.9 130.4 130.2 11.9 10.7 139.0 177 2 214.3 130.1 130.1 11.6 10.5 139.7 178 2 214.5 130.4 130.0 9.9 12.0 139.6 179 2 214.8 130.5 130.3 10.2 12.1 139.1 180 2 214.5 130.2 130.4 8.2 11.8 137.8 181 2 215.0 130.4 130.1 11.4 10.7 139.1 182 2 214.8 130.6 130.6 8.0 11.4 138.7 183 2 215.0 130.5 130.1 11.0 11.4 139.3 184 2 214.6 130.5 130.4 10.1 11.4 139.3 185 2 214.7 130.2 130.1 10.7 11.1 139.5 186 2 214.7 130.4 130.0 11.5 10.7 139.4 187 2 214.5 130.4 130.0 8.0 12.2 138.5 188 2 214.8 130.0 129.7 11.4 10.6 139.2 189 2 214.8 129.9 130.2 9.6 11.9 139.4 190 2 214.6 130.3 130.2 12.7 9.1 139.2 191 2 215.1 130.2 129.8 10.2 12.0 139.4 192 2 215.4 130.5 130.6 8.8 11.0 138.6 193 2 214.7 130.3 130.2 10.8 11.1 139.2 194 2 215.0 130.5 130.3 9.6 11.0 138.5 195 2 214.9 130.3 130.5 11.6 10.6 139.8 196 2 215.0 130.4 130.3 9.9 12.1 139.6 197 2 215.1 130.3 129.9 10.3 11.5 139.7 198 2 214.8 130.3 130.4 10.6 11.1 140.0 199 2 214.7 130.7 130.8 11.2 11.2 139.4 200 2 214.3 129.9 129.9 10.2 11.5 139.6 ) 8 ))) (setf (select data 1) (- (select data 1) 1)) (rcode :data (rest data) :data-names names :info info :description source :name "Banknotes")