tests/test-filter_dv.R

In vpc: Create Visual Predictive Checks

library(vpc)
library(testit)

nonmem_df <- data.frame(ID = 1, ADV = c(1, 0, 0), DV = 1)
nonmem_mdv <- data.frame(ID = 1, MDV = c(1, 0, 0), DV = 1)
nonmem_evid <- data.frame(ID = 1, EVID = c(1, 0, 0), DV = 1)
nonmem <- data.frame(ID = 1, MDV = c(1, 0, 0), EVID = c(0, 1, 0), DV = 1)
nonmem_filtered_mdv <- nonmem_mdv[2:3, c("ID", "MDV", "DV")]
nonmem_filtered_evid <- nonmem_evid[2:3, c("ID", "EVID", "DV")]
nonmem_filtered <- nonmem[3, ]
class(nonmem_mdv)      <- c("nonmem", "data.frame")
class(nonmem_evid)     <- c("nonmem", "data.frame")
class(nonmem)          <- c("nonmem", "data.frame")
class(nonmem_filtered) <- c("nonmem", "data.frame")
class(nonmem_df)       <- c("nonmem", "data.frame")
class(nonmem_filtered_mdv) <- c("nonmem", "data.frame")
class(nonmem_filtered_evid) <- c("nonmem", "data.frame")

assert("filtering values for nonmem works properly", vpc:::is_equal(vpc:::filter_dv(nonmem_mdv), nonmem_filtered_mdv, relative=F))
assert("filtering values for nonmem works properly", vpc:::is_equal(vpc:::filter_dv(nonmem_evid), nonmem_filtered_evid, relative=F))
assert("filtering values for nonmem works properly", vpc:::is_equal(vpc:::filter_dv(nonmem), nonmem_filtered, relative=F))
assert("filtering values for nonmem works properly", vpc:::is_equal(vpc:::filter_dv(nonmem_df), nonmem_df, relative=F))