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