test-pk_mods.R
In tci: Target Controlled Infusion (TCI)

#
# test_that("create_pkmod parameters are entered correctly", {
#   expect_error(create_pkmod(ncpts = "cmpt1", pars = list(k10=-2.496,v1=2.348), vcov = diag(2), ivt = list(list(begin = 0, end = 1/6, k_R = 1), list(begin = 3, end = 3+1/6, k_R = 1))))
#   expect_error(create_pkmod(ncpts = "cmpt1", pars = c(k10="-2.496",v1="2.348"), vcov = diag(2), ivt = list(list(begin = 0, end = 1/6, k_R = 1), list(begin = 3, end = 3+1/6, k_R = 1))))
# })
#