plot_history(history, metric, test_name = "quiz", baseline = "baseline", col = 1:length(history), pch = rep(21:25, 100), by = 0.05, xlab = "Date", ylab = "Score", bty = "l", fg = "darkslategray", col.axis = fg, col.lab = fg, text.col = fg, ...)compute_metrics"quiz" or "test"title.par.legend.plot function.NULL