# NOT RUN {
##-- Read example trajectory file
trtfile <- system.file("examples/hivp.dcd", package="bio3d")
trj <- read.dcd(trtfile)
## Write to netCDF format
write.ncdf(trj, "newtrj.nc")
## Read trj
trj <- read.ncdf("newtrj.nc")
# }
Run the code above in your browser using DataLab