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