# \donttest{
data("iptwExWide", package = "twang")
a <- paste0("tx", 1:3)
baseline <- c("gender", "age")
tv <- list(c("use0"), c("use1"), c("use2"))
lmtp_sdr(iptwExWide, a, "outcome", baseline = baseline, time_vary = tv,
shift = ipsi(0.5), outcome_type = "continuous", folds = 2)
# }
Run the code above in your browser using DataLab