# NOT RUN {
if(!check.utility('mustang')) {
message('Need MUSTANG installed to run this example')
} else {
## Fetch PDB files and split to chain A only PDB files
ids <- c("1a70_A", "1czp_A", "1frd_A")
files <- get.pdb(ids, split = TRUE, path = tempdir())
##-- Or, read a folder/directory of existing PDB files
#pdb.path <- "my_dir_of_pdbs"
#files <- list.files(path=pdb.path ,
# pattern=".pdb",
# full.names=TRUE)
##-- Align these PDB sequences
aln <- mustang(files)
##-- Read Aligned PDBs storing coordinate data
pdbs <- read.fasta.pdb(aln)
}
# }
Run the code above in your browser using DataLab