## Not run:
# ## 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)
#
# ## End(Not run)
Run the code above in your browser using DataLab