# PDB server connection required - testing excluded
# -- Calculate Rog of single structure
pdb <- read.pdb("1bg2")
mass <- rep(12, length(pdb$xyz)/3)
mass[substr(pdb$atom[,"elety"], 1, 1) == "N"] <- 14
mass[substr(pdb$atom[,"elety"], 1, 1) == "H"] <- 1
mass[substr(pdb$atom[,"elety"], 1, 1) == "O"] <- 16
mass[substr(pdb$atom[,"elety"], 1, 1) == "S"] <- 32
rgyr(pdb, mass)
## Not run:
# # -- Calculate Rog of a trajectory
# xyz <- read.dcd(system.file("examples/hivp.dcd", package="bio3d"))
# rg <- rgyr(xyz)
# rg[1:10]
#
# ## End(Not run)
Run the code above in your browser using DataLab