(load (make-pathname :name "diversity" :directory '(:relative "Diversity")))


(DEF D (SEND DIV-DATASET-PROTO :NEW :DATA (QUOTE ((0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 68 0 0) (0 17 2301 0 35 0 51 0 1 6 0 0 0 0 0 0 5 0 0 0 0 0 0 6 0 0 12 0 0) (0 13 4 0 253 0 297 0 5 4 0 0 0 0 0 0 38 0 0 0 0 0 0 172 0 0 91 0 0) (0 36 7768 1 93 0 101 0 5 5 28 0 0 0 0 1 40 0 2 0 0 0 37 8 0 0 107 0 0) (0 94 0 0 12 0 7 0 3 3 9 0 0 2 0 0 12 0 0 0 0 0 0 0 0 4 68 0 0) (0 209 0 0 701 0 283 0 0 11 28 0 0 0 0 0 210 0 63 24 0 0 1 166 2 0 132 13 0) (0 1291 0 0 27 0 10 0 54 69 17 0 0 0 0 0 1 0 2 0 1 0 0 25 0 316 134 21 0) (0 31 1654 0 112 0 271 0 2 1 4 0 0 0 0 0 2 0 1 0 0 0 0 50 1 3 104 0 0) (0 1878 2 0 4459 0 3017 0 71 131 660 0 0 0 0 0 1208 0 109 299 0 2 242 738 156 395 1123 89 0) (0 521 2 0 3697 0 2323 0 19 54 290 0 0 0 0 0 966 0 189 800 0 0 45 1283 392 5 1905 258 1) (0 1304 6 0 2417 0 747 0 97 1094 129 0 0 0 0 0 641 0 198 1 1 0 44 793 1682 861 848 358 0) (0 3410 3453 0 5167 22 2050 0 159 174 1405 0 32 0 0 2 1261 0 283 11 3 0 627 285 30 1485 1957 0 0) (0 1208 6 0 1244 0 1128 0 20 331 2 0 0 0 0 0 328 0 44 176 0 0 69 117 301 1130 254 77 0) (0 226 0 0 206 0 54 0 22 42 1 0 0 0 0 5 46 0 10 0 0 0 0 181 4 39 54 1 0) (0 414 4 0 2439 0 917 0 3 20 169 0 0 0 0 46 791 6 212 1091 0 0 45 1407 260 290 1059 222 0) (0 808 3 0 2506 0 1579 0 55 180 585 0 0 0 1 250 563 11 244 611 0 0 18 184 544 688 459 158 0) (0 276 0 0 316 0 180 0 2 1 16 1 0 1 0 0 123 0 66 1 0 0 0 328 3 4 87 35 0) (0 1206 3 0 5143 0 2650 1 30 81 567 10 1 18 0 53 1276 0 164 121 2 0 204 316 138 681 1551 147 0))) :DATASET-NAME (QUOTE "Kalaeloa") :VAR-NAMES (QUOTE ("Neritina_sp" "Orobophana_uberta" "Assiminea_nitida" "Melampus_sp" "Lamellidea_spp" "Pacificella_sp" "Tornatellides_spp" "Achatinella_mustelina" "Leptachatina_cookei" "L_subcylindracea" "Leptachatina_spp" "Amastra_subrostrata" "Amastra_umbilicata" "Amastra_spp" "Lyropupa_sp" "Lyropupa_ovatula" "Lyropupa_perlonga" "Lyropupa_M_spp" "Nesopupa_litoralis" "Nesopupa_newcombi" "Nesopupa_wesleyana" "Nesopupa_spp" "Pupoidopsis_hawaiiensis" "Gastrocopta_servilis" "Cookeconcha_sp" "Endodonta_kalaeloana" "Succinea_caduca" "Lamellaxis_gracilis" "Bradybaena_similaris")) :OBS-NAMES (QUOTE ("1716" "2701-3" "2701-1" "2701-8" "1715-1" "2711-28" "2717-23" "2700-18" "2706-8b" "2706-6e" "9574" "1710-1" "9670-p1" "2700-1" "9661-2" "9659-1" "2705-7" "9647-2")) :SUBSET (QUOTE ((NIL (0 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)) (|current subset| (0 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)))) :SUBSET-IS-LIST (QUOTE T) :X-AXIS (QUOTE ((NIL (0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17)))) :X-AXIS-IS-LIST (QUOTE T) :OBS-INDICES (QUOTE (69 2434 877 8232 214 1843 1968 2236 14579 12750 11221 21816 6435 891 9395 9447 1440 14363)) :EST-EVENNESS (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) :EST-RICHNESS (QUOTE (NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL)) :EST-SUBSET-SYMBOL (QUOTE NIL) :CURRENT-SUBSET-SYMBOL (QUOTE NIL) :SUBSET-FILE (QUOTE NIL) :X-AXIS-FILE (QUOTE NIL) :CURRENT-X-AXIS-SYMBOL (QUOTE NIL) :DATA-ARE-BINNED (QUOTE T))) 

(send d :plot-counts-by-variable)