## Not run:
# # Load data for HIV example
# trj <- read.dcd(system.file("examples/hivp.dcd", package="bio3d"))
# pdb <- read.pdb(system.file("examples/hivp.pdb", package="bio3d"))
#
# # Do PCA on simulation data
# xyz.md <- fit.xyz(pdb$xyz, trj, fixed.inds=1:ncol(trj))
# pc.sim <- pca.xyz(xyz.md)
#
# # NMA
# modes <- nma(pdb)
#
# # Calculate the RMSIP between the MD-PCs and the NMA-MODEs
# r <- rmsip(modes, pc.sim, subset=10, row.name="NMA", col.name="PCA")
#
# # Plot pairwise overlap values
# plot(r, xlab="NMA", ylab="PCA")
# ## End(Not run)
Run the code above in your browser using DataLab