data(finch.ind)
res.finch<-Tstats(traits.finch, ind_plot=ind.plot.finch, sp=sp.finch,
nperm=9)
par(mfrow=c(2,2))
species.richness<-table(ind.plot.finch)
plot_ses.var(as.listofindex(list(res.finch)), species.richness,
multipanel=FALSE)
#Same plot with resume=TRUE.
par(mfrow=c(2,2))
plot_ses.var(as.listofindex(list(res.finch)), species.richness,
resume=TRUE, multipanel=FALSE)
par(mfrow=c(1,1))
Run the code above in your browser using DataLab