# NOT RUN {
aa <- impute_errors(dataIn = nottem)
# default plot
plot_errors(aa)
# }
# NOT RUN {
# bar plot of averages at each repetition
plot_errors(aa, plotType = 'bar')
# line plot of averages at each repetition
plot_errors(aa, plotType = 'line')
# change the plot aesthetics
library(ggplot2)
p <- plot_errors(aa)
p + scale_fill_brewer(palette = 'Paired', guide_legend(title = 'Default'))
p + theme(legend.position = 'top')
p + theme_minimal()
p + ggtitle('Distribution of error for imputed values')
p + scale_y_continuous('RMSE')
# }
Run the code above in your browser using DataLab