## 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