data(anoletree)
data(anole.data)
anole.pca<-phyl.pca(anoletree,anole.data)
if (FALSE) {
phylomorphospace3d(anoletree,scores(anole.pca)[,1:3],
control=list(spin=FALSE))}
par(cex=0.5)
phylomorphospace3d(anoletree,scores(anole.pca)[,1:3],
method="static",angle=-30)
par(cex=1)
Run the code above in your browser using DataLab