# NOT RUN {
attach(transducin)
# Ignore Gaps
gaps <- gap.inspect(pdbs$ali)
r <- rmsf(pdbs$xyz)
plot(r[gaps$f.inds], typ="h", ylab="RMSF (A)")
detach(transducin)
# }
# NOT RUN {
pdb <- read.pdb("1d1d", multi=TRUE)
xyz <- pdb$xyz
# superimpose trajectory
xyz <- fit.xyz(xyz[1, ], xyz)
# select mainchain atoms
sele <- atom.select(pdb, elety=c("CA", "C", "N", "O"))
# residue numbers to group by
resno <- pdb$atom$resno[sele$atom]
# mean rmsf value of mainchain atoms of each residue
r <- rmsf(xyz[, sele$xyz], grpby=resno)
plot.bio3d(r, resno=pdb, sse=pdb, ylab="RMSF (A)")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab