inst/tests/test-create.R

context("Create")

test_that("Test outputs", { 
    expect_that( is.list(model <- create.pnn()), is_true() )
    expect_that( model$model, equals("Probabilistic neural network") )
    expect_that( model$set, equals(NULL) )
})

Try the pnn package in your browser

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

pnn documentation built on May 2, 2019, 9:30 a.m.