## Not run:
# ids <- c("1a70_A", "1czp_A", "1frd_A", "1fxi_A", "1iue_A", "1pfd_A")
# raw.files <- get.pdb(ids, path = "raw_pdbs")
# files <- pdbsplit(raw.files, ids, path = "raw_pdbs/split_chain")
#
# ## Sequence Alignement
# pdbs <- pdbaln(files)
#
# ## Normal mode analysis on aligned data
# all.modes <- nma.pdbs(pdbs, rm.gaps=TRUE)
#
# ## Plot fluctuations
# plot.enma(all.modes, pdbs=pdbs, conservation=TRUE)
#
# ## group and spread fluctuation profiles
# grps <- rep(NA, length(pdbs$id))
# grps[c(2,3)]=1
# grps[c(4,5)]=2
#
# plot.enma(all.modes, pdbs=pdbs, col=grps, spread=TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab