tests/testthat/test-SurvivalModel-accessors.R

In bhklab/PanCuRx: Pancreatic Ductal Adenocarcinoma Tool-Kit

library(testthat)
library(PDATK)

data(sampleICGCmicro)
set.seed(1987)
survModel <- SurvivalModel(trainCohorts=sampleICGCmicro, randomSeed=1987)

test_that('SurvivalModel models accessors work correctly', {
    expect_s4_class(models(survModel), 'SimpleList')
    expect_silent(models(survModel) <- models(survModel))
})

test_that('SurvivalModel validationStats accessors work correctly', {
    expect_s3_class(validationStats(survModel), 'data.frame')
    expect_silent(validationStats(survModel) <- validationStats(survModel))
})

test_that('SurvivalModel validationData accessors work correctly', {
    expect_s4_class(validationData(survModel), 'CohortList')
    expect_silent(validationData(survModel) <- validationData(survModel))
})