# NOT RUN {
#not run (make sure to load in SuperLearner if running)
# set.seed(1010)
# fake_dat <- data.frame(y = rbinom(100, size = 1, prob = 0.5),
# delta = rbinom(100, size = 1, prob = 0.5),
# w = matrix(rnorm(500), ncol = 5))
# rr.msm.jn.ic(fake_dat)
# }
Run the code above in your browser using DataLab