esf1=meteESF(spp=arth$spp,
abund=arth$count,
power=arth$mass^(4/3),
minE=min(arth$mass^(4/3)))
sad1=sad(esf1)
mseZ(sad1, nrep=100, type='rank',return.sim=TRUE)
Run the code above in your browser using DataLab