CRT {reflectR}

Automatic coding for Cognitive Reflection Test (Frederick, 2005) open-ended responses

Description

Applies coding logic to any number of provided CRT question responses and supports multiple coding schemes. This function can output original coded responses, binary-coded responses, and aggregate scores based on these binary codings.

Usage

CRT(
  item1 = NULL,
  item2 = NULL,
  item3 = NULL,
  codingscheme = "categ",
  na.rm = TRUE
)

Arguments

item1

Vector of responses to the first CRT question, or NULL if not provided.

item2

Vector of responses to the second CRT question, or NULL if not provided.

item3

Vector of responses to the third CRT question, or NULL if not provided.

codingscheme

A character string indicating the desired coding scheme. Options are "categ" for the original 1, 2, 3 coding, "sum" for a sum of binary-coded correct answers, or "mean" for an average of binary-coded correct answers. The default is "categ".

na.rm

Logical, indicating whether to treat missing values as empty responses or preserve them as missing information. When TRUE, NAs are coded as "other" incorrect responses; when FALSE, NAs are preserved. Default is TRUE.

Value

A list containing the coded and, if applicable, binary-coded responses for each provided CRT question. For "sum" or "mean" coding schemes, additional vectors representing these aggregate scores are included.

Note

Developed by Giuseppe Corbelli, email: [e-mail], [e-mail]

Examples

# 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