data(bryceveg) # returns a vegetation data.frame
data(brycesite)
x <- pca(bryceveg,dim=10) # returns the first 10 eigenvectors
# and loadings
plot(x)
surf(x,brycesite$elev)
points(x,brycesite$depth=='deep')
Run the code above in your browser using DataLab