df <- data.frame(sid = sprintf("S%d", 1:8),
grp = rep(c("A", "B"), each = 4),
score = c(80, 82, 15, 81, 60, 62, 61, 59))
detect_score_anomaly(df, "score", group_vars = "grp", id_var = "sid")
Run the code above in your browser using DataLab