# 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/structure alignement
pdbs <- pdbaln(files)
## Normal mode analysis on aligned data
modes <- nma(pdbs)
## Plot fluctuations
plot(modes, pdbs=pdbs)
## Group and spread fluctuation profiles
hc <- hclust(as.dist(1-modes$rmsip))
col <- cutree(hc, k=2)
plot(modes, pdbs=pdbs, col=col, spread=TRUE)
# }
Run the code above in your browser using DataLab