# aa <- impute_errors()
# bb <- plot_errors(aa)
# bb
# cc <- impute_errors()
# dd <- plot_errors(dataIn = cc, plotType = 1, main = "Bar plot",
# args.legend = list(x="topleft", bg = "NA"))
# cc <- impute_errors()
# dd <- plot_errors(dataIn = cc, plotType = 2)
Run the code above in your browser using DataLab