untb: Ecological Drift under the UNTB

"sahfos" <- 
structure(c(247200, 42100, 35950, 30550, 19850, 12200, 11850, 
11600, 11500, 10750, 7700, 3150, 2943, 2456, 1700, 1350, 1244, 
1100, 1100, 650, 550, 450, 350, 347, 327, 277, 221, 204, 150, 
84, 57, 55, 42, 39, 17, 12, 11, 11, 7, 7, 4, 3, 2, 2, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1), .Dim = 54, .Dimnames = list(c("Echinodermata larvae", 
"Parapseudocalanus spp.", "Temora longicornis", "Acartia spp.", 
"Centropages typicus", "Podon spp.", "Larvacea", "Evadne spp.", 
"Penilia avirostris", "Calanus i-iv", "Oithona spp.", "Limacina retroversa", 
"Decapoda larvae", "Calanus helgolandicus", "Corycaeus spp.", 
"Centropages hamatus", "Chaetognatha", "Isias clavipes", "Cirripede larvae", 
"Centropages spp.", "Cyphonautes larvae", "Lamellibranchia larvae", 
"Harpacticoida", "Calanus finmarchicus", "Hyperiidae", "Euphausiacea", 
"Metridia lucens", "Fish larvae", "Oncaea spp", "Gammaridae", 
"Candacia armata", "Branchiostoma lanceolatum", "Cumacea", "Doliolidae", 
"Anomalocera patersoni", "Mysidacea", "Euchaeta hebes", "Polychaeta larvae", 
"Labidocera wollastoni", "Echinodermata post larvae", "Siphonophora", 
"Sergestidae", "Euchaeta spp.", "Nematoda", "Clausocalanus spp.", 
"Pleuromamma gracilis", "Euterpina acutifrons", "Halithalestris croni", 
"Metridia Iiv", "Scolecithricella spp", "Caligoida", "Caprellidea", 
"Thaliacea", "Alteutha spp.")), class = c("count", "table"))