inst/unitTests/runit.visual.R

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

Try the rcdk package in your browser

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

rcdk documentation built on March 13, 2020, 1:30 a.m.