# NOT RUN {
# default
plot_impute(dataIn = nottem)
# change missing percent total
plot_impute(dataIn = nottem, missPercent = 10)
# show missing values
plot_impute(dataIn = nottem, showmiss = TRUE)
# use mar sampling
plot_impute(dataIn = nottem, smps = 'mar')
# change the plot aesthetics
# }
# NOT RUN {
library(ggplot2)
p <- plot_impute(dataIn = nottem, smps = 'mar')
p + scale_colour_manual(values = c('black', 'grey'))
p + theme_minimal()
p + ggtitle('Imputation examples with different methods')
p + scale_y_continuous('Temp at Nottingham Castle (F)')
# }
Run the code above in your browser using DataLab