tests/testthat/test-GeneFuModel-constructor.R

library(testthat)
library(PDATK)

data(sampleICGCmicro)
data(sampleCohortList)

test_that('GeneFuModel constructor works correctly', {
    expect_s4_class({ gfModel <- GeneFuModel(randomSeed=1987); gfModel },
        'GeneFuModel')
    expect_true(validObject(gfModel))
})
bhklab/PanCuRx documentation built on Dec. 30, 2021, 4:59 p.m.