data(finch.ind)
res.finch<-Tstats(traits.finch, ind_plot=ind.plot.finch,
sp=sp.finch, nperm=9, print=FALSE)
par(mfrow=c(3,4))
plot_randtest(res.finch)
plot_randtest(res.finch, alter="two-sided")Run the code above in your browser using DataLab