tests/testthat/test-sigmoid_init.R

In maomlab/BayesPharma: Tools for Bayesian Analysis of Non-Linear Pharmacology Models

library(BayesPharma)

testthat::test_that(
  desc = "sigmoid_agonist_inits with default inits",
  code = {
    init <- sigmoid_agonist_init()
    testthat::expect_true(inherits(init, "bpinit"))
  })

testthat::test_that(
  desc = "sigmoid_agonist_inits with custom inits as numeric values",
  code = {
    init <- sigmoid_agonist_init(
      ec50 = -6,
      hill = 0.5,
      top = 50,
      bottom = 0)

    testthat::expect_true(inherits(init, "bpinit"))
  })

testthat::test_that(
  desc = "sigmoid_agonist_inits with custom inits as functions",
  code = {
    init <- sigmoid_agonist_init(
      ec50 = \() -6,
      hill = \() 0.5,
      top = \() 50,
      bottom = \() 0)

    testthat::expect_true(inherits(init, "bpinit"))
  })

testthat::test_that(
  desc = "sigmoid_antagonist_inits with default inits",
  code = {
    init <- sigmoid_antagonist_init()
    testthat::expect_true(inherits(init, "bpinit"))
  })

testthat::test_that(
  desc = "sigmoid_antagonist_inits with custom inits as numeric values",
  code = {
    init <- sigmoid_antagonist_init(
      ic50 = -6,
      hill = -0.5,
      top = 50,
      bottom = 0)

    testthat::expect_true(inherits(init, "bpinit"))
  })

testthat::test_that(
  desc = "sigmoid_antagonist_inits with custom inits as functions",
  code = {
    init <- sigmoid_antagonist_init(
      ic50 = \() -6,
      hill = \() -0.5,
      top = \() 50,
      bottom = \() 0)

    testthat::expect_true(inherits(init, "bpinit"))
  })