tests/regimen_to_nm.R

library(testit)
library(PKPDsim)
a <- new_regimen(amt = 10, n = 5, interval = 12)
b <- regimen_to_nm(a, t_obs = c(1,2,3))
assert("correct length", length(unlist(b[,1])) == 8)
assert("correct width", length(unlist(b[1,])) == 7)
ronkeizer/PKPDsim documentation built on May 27, 2019, 1:50 p.m.