# NOT RUN {
d <- wrapr::build_frame(
"x1", "x2", "x3" |
1 , 4 , "A" |
NA , 5 , "B" |
3 , 6 , NA )
plan <- design_missingness_treatment(d)
prepare(plan, d)
prepare(plan, data.frame(x1=NA, x2=NA, x3="E"))
# }
Run the code above in your browser using DataLab