R/atom2xyz.R

"atom2xyz" <-
function(num) {
  num3 <- num*3
  c(t(matrix(c(((num3) - 2),
               ((num3) - 1),
               (num3)), ncol=3)))
}

Try the bio3d package in your browser

Any scripts or data that you put into this service are public.

bio3d documentation built on Oct. 27, 2022, 1:06 a.m.