In debruine/markr: University of Glasgow INP/Psych Marking

library(tidyverse)

r sum(!is.na(fb$mark)) of r length(unique(fb$id)) assessments marked

if (exists("eval") & "eval" %in% show) {
  cat("\\section{Evaluation categories}\n")
  eval %>%
    pander::pandoc.table(
      split.cells = c(8, 65),
      justify = c("left", "left")
    )
}

if ("mark2" %in% show) {
  cat("\\section{Second marking}\n\n")

  smark_table <- check_second_marking(marking)

  too_diff <- smark_table %>%
      mutate(too_diff = abs(discrepency) > 2) %>%
      group_by() %>%
      summarise(m = mean(too_diff) * 100) %>%
      pull(m) %>%
      round()

  cat(too_diff, "% are more than 2 fine marks apart.\n\n")

  smark_table %>%
    pander::pandoc.table(justify = c("left", "left", "right", "right", "right"))
}

if ("mark_dist" %in% show) {
  cat("\\section{Mark distribution}\n")
  mark_dist(marking)
}

if ("cat_dist" %in% show) {
  cat("\\section{Category distribution}\n")
  cat_dist(marking)
}

if ("cat_mark" %in% show) {
  cat("\\section{Category vs Mark correspondance}\n")
  cat_mark(marking)
}

debruine/markr documentation built on May 20, 2019, 5:57 p.m.