# NOT RUN {
data(abernethy)
## Remove the Depth and Age variables
abernethy2 <- abernethy[, -(37:38)]
## Fit PCA
aber.pca <- rda(abernethy2)
## Distance along the first PCA axis
gradientDist(aber.pca)
# }
Run the code above in your browser using DataLab