R code for Imputation Presentation