# NOT RUN {
data(expose_data)
data(simu)
data(gen)
delta=c(1,0)
seku <- seq(0,1,0.05)
Exposures<- c('Var1','Var2','Var3','Var4','Var5')
summary_table_lines <- gen[[2]]
ice_res <- ice(allsim = simu[[1]], dataset = expose_data, dr = seku,
squem = summary_table_lines, remove_extrem = FALSE)
# }
Run the code above in your browser using DataLab