# NOT RUN {
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