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

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