tests/testthat/test-utilmod.R

In InnovationValueInitiative/IVI-NSCLC: The IVI-NSCLC model

context("utilmod.R unit tests")
rm(list = ls())

# Model setup
## Treatment sequences
txseq1 <- txseq(first = "erlotinib",
               second = c("osimertinib", "PBDC"),
               second_plus = c("PBDC + bevacizumab", "PBDC + bevacizumab"))
txseq2 <- txseq(first = "gefitinib",
               second = c("osimertinib", "PBDC"),
               second_plus = c("PBDC + bevacizumab", "PBDC + bevacizumab"))

# Patient population
pats <- create_patients(n = 4)


test_that("create_utilmod first line,  4 health states", {
  n_samples <- 2
  txseqs <- txseq_list(seq1 = txseq1, seq2 = txseq2)
  struct <- model_structure(txseqs, dist = "weibull")
  ae_probs <- ae_probs(n_samples, struct)
  utilmod <- create_utilmod(n = n_samples, struct = struct, patients = pats,
                            ae_probs = ae_probs)
  expect_true(inherits(utilmod, "StateVals"))
  expect_equal(nrow(utilmod$input_mats$time_intervals), 2)
  
  # disutility until progression
  utilmod <- create_utilmod(n = n_samples, struct = struct, patients = pats,
                            ae_probs = ae_probs, ae_duration = "progression")
  expect_true(is.null(utilmod$input_mats$time_intervals))
})

test_that("create_utilmod first line,  3 health states", {
  n_samples <- 2
  txseqs <- txseq_list(seq1 = txseq1, seq2 = txseq2)
  struct <- model_structure(txseqs, dist = "weibull",
                            n_states = "three")
  ae_probs <- ae_probs(n_samples, struct)
  utilmod <- create_utilmod(n = n_samples, struct = struct, patients = pats,
                            ae_probs = ae_probs)
  expect_true(inherits(utilmod, "StateVals"))
})