(defun source () (format t " Source: Data were furnished by Mike Camden, Wellington Polytenic, Wellington, New Zealand. Horse mussles, Atrinia, were studied from 5 sites in the Marlborough Sounds in December 1984. The response is Muscle -Adductor- mass,M, the mass of the edible portion of the mussles. The possible predictors are Site, categorical, 1-5 L = shell length in mm H = shell height in mm W = shell width in mm PeaCrab = categrical variable indicating the presence of Pea Crab living in the shell. Variable needs reformulation; See original source G = gonads? variable needs reformulation VMass = Viscera mass in g S = shell mass ~%")) (let* ((names '("Site" "L" "H" "W" "PeaCrab" "Gonads" "Viscera Mass" "M" "S")) (data (transpose (split-list '( 1 237 110 39 14 6 65 9 82 1 200 95 32 14 13 42 4 50 1 222 92 34 14 6 30 5 57 1 204 93 37 5 13 33 3 65 1 225 121 42 14 13 47 9 87 1 158 83 27 6 6 16 4 28 1 222 108 38 14 13 60 9 88 1 210 109 33 5 13 43 7 72 1 242 122 41 14 6 53 6 75 1 212 104 33 5 13 34 6 61 1 196 98 30 6 13 23 4 48 1 143 72 24 6 6 15 1 28 1 188 95 32 14 13 24 4 50 1 217 110 38 14 6 50 7 67 1 216 97 33 14 6 36 6 54 1 205 102 35 14 13 34 5 70 1 207 107 37 13 6 28 5 61 1 208 100 35 14 6 37 6 55 1 210 95 37 14 6 34 7 57 1 213 104 34 14 6 32 4 58 1 225 110 38 14 13 50 11 73 1 197 105 34 5 13 34 6 61 1 188 97 32 5 6 23 5 55 1 210 97 35 5 6 33 6 58 1 214 102 35 14 13 37 7 68 1 207 110 35 6 6 36 5 58 1 204 106 34 14 13 26 7 59 1 204 100 34 14 13 26 7 60 1 224 104 35 14 13 47 7 84 1 215 112 37 14 6 44 7 78 1 201 107 37 14 13 32 6 70 1 203 100 35 14 6 29 4 60 1 207 108 38 14 13 32 7 63 1 224 112 40 14 6 53 9 84 1 228 117 38 13 6 42 8 81 1 195 94 31 14 6 28 5 42 1 208 112 36 14 13 40 6 72 1 197 103 30 13 6 27 4 56 1 193 106 33 14 6 30 6 57 1 197 83 33 14 6 27 4 38 1 222 104 36 14 13 42 9 72 1 198 102 33 6 19 27 4 59 1 229 109 40 14 13 44 8 80 1 208 107 36 14 13 41 7 68 1 207 99 31 14 6 25 5 50 1 203 114 36 3 6 38 5 81 1 194 105 37 6 13 26 5 56 1 190 91 30 14 6 24 5 45 1 159 93 33 14 13 25 3 42 1 230 112 38 14 6 44 6 89 1 227 108 39 14 13 48 7 73 1 234 110 41 14 6 52 9 83 1 233 103 35 13 13 35 7 71 1 228 108 38 14 13 31 7 70 1 206 96 32 5 6 26 4 48 1 203 100 35 5 13 29 4 61 1 170 102 33 14 13 28 4 58 1 205 103 34 14 13 40 8 83 1 217 113 39 13 6 42 7 85 2 318 158 68 14 13 175 47 345 2 312 148 56 14 13 196 52 290 2 265 124 46 14 13 105 27 167 2 222 104 38 14 13 55 13 67 2 274 143 51 14 13 156 31 238 2 216 99 35 14 6 55 14 68 2 217 109 34 14 13 50 15 75 2 202 96 32 13 6 27 4 54 2 272 119 44 6 13 85 23 128 2 273 123 49 14 13 125 32 150 2 260 135 48 14 6 114 30 117 2 276 133 47 5 13 131 26 190 2 270 126 50 6 6 99 24 160 2 280 130 52 6 19 98 31 212 2 262 134 50 14 6 113 31 208 2 312 120 61 14 13 154 42 235 2 220 94 34 6 13 37 9 52 2 212 102 32 14 6 40 13 74 2 196 85 28 14 13 22 7 42 2 226 104 38 14 13 55 13 69 2 284 134 61 14 13 119 50 268 2 320 137 60 14 13 181 39 323 2 331 140 60 14 13 144 47 359 2 276 126 46 14 13 149 40 167 2 186 92 30 14 13 27 5 33 2 213 98 35 14 13 46 12 51 2 291 130 47 14 6 124 26 170 2 298 137 54 5 6 110 32 224 2 287 140 55 14 6 124 40 238 2 230 106 40 14 13 57 16 68 2 293 135 57 6 13 111 33 208 2 298 135 48 14 13 132 28 167 2 290 134 47 5 6 82 28 187 2 282 135 52 14 13 146 42 191 2 221 104 37 14 6 51 15 58 2 287 135 54 14 13 124 27 180 2 228 129 46 14 6 115 33 188 2 210 107 33 14 6 45 14 65 2 308 131 58 5 19 126 29 299 3 265 124 48 14 13 129 26 159 3 270 124 44 5 13 144 25 145 3 208 99 33 5 13 47 9 54 3 277 123 45 6 6 88 18 129 3 241 110 39 5 13 80 23 104 3 219 105 38 14 13 63 13 66 3 170 87 27 14 13 23 6 24 3 150 75 21 14 19 11 6 19 3 132 65 20 14 19 13 1 10 3 175 86 30 14 13 29 8 36 3 150 69 22 13 19 11 5 18 3 162 79 25 14 13 12 6 20 3 252 124 47 14 6 78 22 133 3 275 131 48 13 13 101 24 179 3 224 107 36 14 6 52 13 69 3 211 100 33 14 13 48 11 59 3 254 126 46 6 13 85 18 120 3 234 114 37 14 6 49 17 72 3 221 108 37 14 13 55 15 74 3 167 80 27 14 13 22 7 27 3 220 106 36 14 6 52 14 52 3 227 118 35 14 6 60 14 76 3 177 83 25 14 19 19 8 25 3 230 112 47 5 13 79 18 125 3 288 132 46 5 6 80 24 138 3 275 127 54 5 13 91 29 191 3 273 120 42 6 6 98 21 148 3 246 110 37 6 6 61 17 90 3 250 115 43 5 6 74 17 120 3 290 131 48 14 13 120 34 203 3 226 111 35 14 13 50 16 64 3 269 121 45 14 13 118 22 124 3 267 121 48 14 13 111 24 153 3 263 123 48 6 6 183 19 151 3 217 104 36 14 6 53 13 68 3 188 93 33 14 13 32 10 51 3 152 76 25 14 19 19 5 19 3 227 112 38 5 13 65 15 88 3 216 110 25 13 6 35 12 53 3 242 112 45 14 19 52 12 61 3 260 123 44 5 6 73 24 133 3 196 101 35 5 13 57 15 68 3 220 105 36 14 6 54 16 64 4 301 137 53 5 13 101 26 232 4 242 113 45 14 13 59 14 124 4 281 130 53 5 13 110 31 208 4 223 105 36 13 13 47 7 78 4 288 130 58 5 19 105 21 265 4 320 143 61 5 6 209 31 336 4 300 122 55 6 19 125 18 254 4 284 136 50 14 6 103 27 221 4 305 154 55 6 6 103 27 238 4 324 140 62 14 19 121 31 304 4 294 125 53 6 19 99 11 258 4 317 144 57 14 19 95 27 343 4 256 135 50 6 13 69 20 200 4 329 140 62 6 19 131 31 348 4 324 140 58 5 13 109 34 292 4 329 149 62 5 19 113 29 418 4 275 120 47 6 6 79 22 201 4 237 117 42 5 6 64 15 103 4 297 125 50 6 6 76 21 196 4 237 120 44 5 6 73 21 145 4 260 129 44 6 6 95 22 195 4 296 133 54 6 13 101 30 236 4 280 137 50 6 13 89 23 261 4 246 129 49 5 13 68 22 176 4 261 126 45 5 6 71 21 152 4 294 135 50 14 13 98 29 225 4 257 116 52 6 6 83 22 161 4 248 110 43 14 6 55 19 142 4 281 134 52 14 19 84 25 188 4 240 111 46 5 13 72 14 156 4 259 121 48 5 13 89 19 161 4 283 112 47 14 13 66 14 199 4 291 127 46 5 13 97 25 174 4 272 121 46 14 13 87 21 146 4 297 141 60 6 19 174 23 368 4 270 115 44 6 6 72 17 162 4 257 116 42 6 6 68 20 151 4 277 123 47 5 6 68 16 176 4 259 130 48 5 13 103 25 171 4 240 117 44 14 6 77 17 149 4 287 141 50 14 13 115 23 210 4 254 117 46 5 6 89 17 174 4 228 122 41 5 6 65 19 147 5 270 116 50 13 19 48 9 142 5 286 118 47 14 19 54 15 161 5 271 120 43 14 19 85 12 154 5 256 112 46 14 19 64 12 97 5 252 110 42 13 19 64 10 124 5 291 108 47 14 19 37 7 101 5 247 103 42 14 6 72 12 128 5 255 113 41 14 6 54 12 110 5 275 110 46 13 6 59 11 155 5 284 132 50 14 19 44 7 139 5 272 118 41 14 13 70 13 121 5 300 124 48 14 13 86 20 157 5 259 113 42 14 6 56 13 122 5 248 108 42 14 19 40 4 115 5 287 116 45 14 19 62 7 157 5 222 102 38 14 19 48 7 72 5 253 110 42 14 19 35 4 109 ) 9)))) (setf (nth 4 data) (cut (nth 4 data) (list 13.5))) (source) (make-reg :data data :data-names names :menu "Mussels"))