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()))

})

Try the spartan package in your browser

Any scripts or data that you put into this service are public.

spartan documentation built on May 2, 2019, 9:39 a.m.