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