# NOT RUN {
# PDB server connection required - testing excluded
pdb <- read.pdb("2dn1")
biounit <- biounit(pdb)
pdb
biounit
# }
# NOT RUN {
biounit <- biounit(read.pdb("2bfu"), multi=TRUE)
write.pdb(biounit[[1]], file="biounit.pdb")
# open the pdb file in VMD to have a look on the biological unit
# }
Run the code above in your browser using DataLab