## Fetch stucture
pdb <- read.pdb("1hel")
## Calculate (vibrational) normal modes
modes <- nma(pdb)
## Visualize modes
outfile = file.path(tempdir(), "mode_7.pdb")
m7 <- mktrj(modes, mode=7, file = outfile)
outfile
Run the code above in your browser using DataLab