tests/testthat/test_emulation_utilities.R

library(spartan)
context("Testing Spartan Utilities Class")

test_that("generate_model_formula", {

  expect_equal(generate_model_formula(c("ChemokineThreshold","AdhesionResponse"),c("Velocity","Displacement")),as.formula("Velocity + Displacement ~ ChemokineThreshold + AdhesionResponse",env=parent.frame()))

})
kalden/spartan documentation built on May 31, 2019, 11:52 p.m.