## Predicted frequencies from a fitted model
## meta-community zero-sum multinomial for BCI data
moths.mzsm <- fitsad(moths, "mzsm")
moths.mzsm.r <- radpred(moths.mzsm)
## Rank-abundance plot with observed and predicted frequencies
plot(rad(moths))
lines(moths.mzsm.r)
## Alternative model: local zero-sum multinomial
## Alonso & Mckane (Ecol. Lett. 2004, table 1) give theta = 41 and m = 0.77
moths.lzsm.r <-
radpred( moths, sad = "volkov", distr="D",
coef =list(theta = 41, m = 0.77, J=sum(moths))
)
## Adding predicted frequencies to the plot
lines(moths.lzsm.r, col = "red")
Run the code above in your browser using DataLab