R/item-bank.R

In pmcharrison/piat: R implementation of the Pitch Imagery Arrow Test

#' Item bank
#'
#' Returns the PIAT item bank as a data frame.
#'
#' @export
get_item_bank <- function() {
  x <- read.csv(system.file("item-bank.csv", package = "piat",
                            mustWork = TRUE),
                stringsAsFactors = FALSE)
  x$answer <- x$ProbeAcc
  stopifnot(is.numeric(x$answer))
  x$Filename <- paste(x$Filename, "mp4", sep = ".")
  x
}