cat("\n")
## Not run: 
# ## Read a single entry MOL2 file
# ## (returns a single object)
# mol <- read.mol2( system.file("examples/aspirin.mol2", package="bio3d") )
# 
# ## Short summary of the molecule
# print(mol)
# 
# ## ATOM records
# mol$atom
# 
# ## BOND records
# mol$bond
# 
# ## Print some coordinate data
# head(mol$atom[, c("x","y","z")])
# 
# ## Or coordinates as a numeric vector
# #head(mol$xyz)
# 
# ## Print atom charges
# head(mol$atom[, "charge"])
# 
# ## Convert to PDB
# pdb <- as.pdb(mol)
# 
# 
# ## Read a multi-molecule MOL2 file
# ## (returns a list of objects)
# #multi.mol <- read.mol2("zinc.mol2")
# 
# ## Number of molecules described in file
# #length(multi.mol)
# 
# ## Access ATOM records for the first molecule
# #multi.mol[[1]]$atom
# 
# ## Or coordinates for the second molecule
# #multi.mol[[2]]$xyz
# 
# 
# 
# ## Process output from docking (e.g. DOCK)
# ## (typically one molecule with many conformations)
# ## (returns one object, but xyz in matrix format)
# #dock <- read.mol2("dock.mol2")
# 
# ## Reference PDB file (e.g. X-ray structure)
# #pdb <- read.pdb("dock_ref.pdb")
# 
# ## Calculate RMSD of docking modes
# #sele <- atom.select(dock, "noh")
# #rmsd(pdb$xyz, dock$xyz, b.inds=sele$xyz)
# ## End(Not run)
Run the code above in your browser using DataLab