data(finch.ind)
res.partvar.finch<-partvar( traits=traits.finch,
factors=cbind(as.factor(as.vector(ind.plot.finch)),
as.factor(as.vector(sp.finch)),
as.factor(as.vector(unlist(strsplit(as.vector(sp.finch),"_"))
[seq(1,length(sp.finch)*2, by=2)])) ) )
pie_partvar(res.partvar.finch, col=c("red", "green", "blue"))
bar_partvar(res.partvar.finch, col=c("red", "green", "blue"))
Run the code above in your browser using DataLab