## 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