data(dommats, package = "EloRating")
res <- elo_steepness_from_matrix(dommats$elephants, n_rand = 1,
silent = TRUE, refresh = 0,
iter = 1000, warmup = 500)
plot_scores(res)
res <- davids_steepness(dommats$elephants, refresh = 0)
plot_scores(res)
plot_scores(res, color = FALSE)
plot_scores(res, adjustpar = 0.3)
Run the code above in your browser using DataLab