data-raw/item-bank.R

item_bank <- read.csv("data-raw/item-bank.csv", stringsAsFactors = FALSE)
item_bank$answer <- item_bank$which_mistuned
item_bank$difficulty <- item_bank$difficulty_with_ranef

stopifnot(is.numeric(item_bank$answer))
devtools::use_data(item_bank, overwrite = TRUE)
pmcharrison/mpt documentation built on May 2, 2024, 7:20 p.m.