tests/testthat/tests-sampleNode.R

In n8thangreen/treeSimR: treeSimR

library(treeSimR)
library(dplyr)
library(yaml)
library(purrr)

context("sampleNode")

test_that("different distributions and parameter values", {

  osList <- yaml.load_file("../testdata/test1.yaml")
  osNode <- data.tree::as.Node(osList)
  treeSimR:::print.costeffectiveness_tree(osNode)

  sample <- unlist(osNode$Get(sampleNode))
  names(sample) <- NULL

  expect_equal(sample,
               rep(1, length(sample)),
               info = "sampling from distn centred at 1, sd 0")

  osList$distn <- "gamma"
  osList$mean <- 1
  osList$sd <- 1

  osNode <- data.tree::as.Node(osList)
  sample <- unlist(osNode$Get(sampleNode))
  names(sample) <- NULL

  expect_true(sample[1] != 1,
              info = "haven't modified distribution (weak test)")

  osList$mean <- NA
  osNode <- data.tree::as.Node(osList)
  expect_error(osNode$Get(sampleNode),
               info = "mean >= 0 is not TRUE")

  osList$distn <- "other"
  osNode <- data.tree::as.Node(osList)
  expect_error(osNode$Get(sampleNode),
               info = "arg' should be one of ")
})