# NOT RUN {
attach(transducin)
#-- Do PCA ignoring gap containing positions
pc.xray <- pca(pdbs)
# Plot results (conformer plots & scree plot)
plot(pc.xray, col=annotation[, "color"])
detach(transducin)
# }
Run the code above in your browser using DataLab