data(finch.ind)
res.decomp<-decomp_within(traits=traits.finch, sp=sp.finch,
ind.plot=ind.plot.finch, print=FALSE)
barplot.decomp_within(res.decomp)
par(mfrow=c(2,2))
barplot.decomp_within(res.decomp, resume=FALSE)
par(mfrow=c(1,1))Run the code above in your browser using DataLab