/rcdk/inst/unitTests/runit.visual.R

http://github.com/rajarshi/cdkr · R · 9 lines · 0 code · 0 blank · 9 comment · 0 complexity · 7de85252099c9057e30628dddbbe17b9 MD5 · raw file

  1. ## test.view.image <- function()
  2. ## {
  3. ## m <- parse.smiles('c1ccccc1C(=O)NC')
  4. ## img <- view.image.2d(m, 100,100)
  5. ## dims <- dim(img)
  6. ## checkEquals(dims[1], 100)
  7. ## checkEquals(dims[2], 100)
  8. ## checkEquals(dims[2], 3)
  9. ## }