##-- PCA on torsion data for multiple PDBs
data(kinesin)
attach(kinesin, warn.conflicts=FALSE)
gaps.pos <- gap.inspect(pdbs$xyz)
tor <- t(apply( pdbs$xyz[, gaps.pos$f.inds], 1, torsion.xyz, atm.inc=1))
pc.tor <- pca.tor(tor[,-c(1,218,219,220)])
#plot(pc.tor)
plot.pca.loadings(pc.tor)
detach(kinesin)
## Not run:
# ##-- PCA on torsion data from an MD trajectory
# trj <- read.dcd( system.file("examples/hivp.dcd", package="bio3d") )
# tor <- t(apply(trj, 1, torsion.xyz, atm.inc=1))
# gaps <- gap.inspect(tor)
# pc.tor <- pca.tor(tor[,gaps$f.inds])
# plot.pca.loadings(pc.tor)
# ## End(Not run)
Run the code above in your browser using DataLab