In jonotuke/examMarking: code for exam marking

knitr::opts_chunk$set(echo = FALSE)
pacman::p_load(tidyverse, examMarking)
theme_set(theme_bw())

# Get the data
data("SMI_2018_marks_clean")

Grade summary

Table

get_grade_summary(SMI_2018_marks_clean$grade) %>% 
  knitr::kable()

Bar-chart

SMI_2018_marks_clean %>% ggplot(aes(grade, fill = grade)) + geom_bar(show.legend = FALSE)

Exam

SMI_2018_marks_clean %>% 
  profile_plot("^Q", grade)

Scaling

Method

SMI_2018_marks_clean <- 
  SMI_2018_marks_clean %>% 
  mutate(
    norm_mark  = norm_glonek(Total, a = 0.5, b = 1)
  )

Results

norm_compare(SMI_2018_marks_clean$Total, SMI_2018_marks_clean$norm_mark) %>% 
  knitr::kable()

Previous years

jonotuke/examMarking documentation built on Nov. 26, 2019, 3:48 p.m.