x <- coords(c(0,0),c(0,0),c(0,1), basis = "xyz")
print(x)
class(x)
cell <- cryst1(abc = c(10,10,10))
y <- xyz2abc(x,cryst1=cell)
print(y)
class(y)
x <- read.pdb(system.file("examples/PCBM_ODCB.pdb",package="Rpdb"))
coords(x)
coords(x$atoms)
coords(x) <- coords(x$atoms)Run the code above in your browser using DataLab