# NOT RUN {
# PDB server connection required - testing excluded
# Fetch all annotation terms
ids <- c("6Q21_B", "1NVW", "1P2U_A")
anno <- pdb.annotate(ids)
# Access terms, e.g. ligand names:
anno$ligandName
## only unique PDB IDs
anno <- pdb.annotate(ids, unique=TRUE)
# Fetch only specific terms
pdb.annotate(ids, anno.terms = c("ligandId", "citation"))
# }
# NOT RUN {
# }
# NOT RUN {
# PFAM server connection required - testing excluded
# Find PFAM annotations of PDB entries
pdb.pfam(c("6Q21_A", "1NVW", "1P2U_A"))
# More details and a not fond entry warning
pdb.pfam(c("1P2U_A", "6Q21_B"), compact=FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab