# \donttest{
# 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("pfam", "ligandId", "citation"))
# }
if (FALSE) {
# 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)
}
Run the code above in your browser using DataLab