# Automated scoring for CRT responses using the categorical coding scheme:
reflectR::CRT(
item1 = c("meh", "five", "10", "ten"),
item2 = c("5", "one hundred", NA, "five"),
item3 = c("47", "24", "forty-sevenn", "who knows"),
codingscheme = "categ",
na.rm = TRUE)
# Compute the sum score for CRT responses based on binary-coded correctness:
reflectR::CRT(
item1 = c("meh", "five", "10", "ten"),
item2 = c("5", "one hundred", NA, "five"),
item3 = c("47", "24", "forty-sevenn", "who knows"),
codingscheme = "sum",
na.rm = FALSE)$crt_sum
Run the code above in your browser using DataLab