tests/testthat/test-getOutput.R

In concrete: Continuous-Time Competing Risks Estimation using Targeted Minimum Loss-Based Estimation (TMLE)

# test_that("getOutput() throws expected errors", 
#           code = {
#               # competing risk
#               data <- as.data.table(survival::pbc)[, c("time", "status", "trt", "id", "age", "sex")]
#               set.seed(0)
#               data[, trt := sample(0:1, length(trt), replace = TRUE)]
#               
#               data[, status := as.numeric(status >= 1)]
#               
#               concrete.args.SL <- formatArguments(Data = data, EventTime = "time", EventType = "status",
#                                                   Treatment = "trt", ID = "id", Intervention = makeITT(),
#                                                   TargetTime = 2500, TargetEvent = NULL,
#                                                   Model = NULL, Verbose = TRUE, ReturnModels = TRUE)
#               concrete.est <- doConcrete(ConcreteArgs = concrete.args.SL)
#               
#               expect_error(object = {getOutput(concrete.args.SL)})
#               expect_error(object = {getOutput(concrete.est, Estimand = "a")})
#               expect_error(object = {getOutput(concrete.est, Intervention = "a")})
#               expect_error(object = {getOutput(concrete.est, Estimand = "RD", Intervention = 1)})
#               expect_error(object = {getOutput(concrete.est, Signif = NULL)})
#               expect_error(object = {getOutput(concrete.est, GComp = 5)})
#           }
# )