CRT4 {reflectR}

Automatic coding for Cognitive Reflection Test 4-item version (Toplak et al., 2014) 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

CRT4(
  item1 = NULL,
  item2 = NULL,
  item3 = NULL,
  item4 = 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.

item4

Vector of responses to the fourth 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 CRT4 responses using the categorical coding scheme:
reflectR::CRT4(
item1 = c("four", "nineeee", "maybe 4?"),
item2 = c("29", "thirty", "30"),
item3 = c("twentyyyy", "ten I think", "dunno"),
item4 = c("your behind", NA, "richer"),
codingscheme = "categ",
na.rm = TRUE)

# Compute the sum score for CRT4 responses based on binary-coded correctness:
reflectR::CRT4(
item1 = c("four", "nineeee", "maybe 4?"),
item2 = c("29", "thirty", "30"),
item3 = c("twentyyyy", "ten I think", "dunno"),
item4 = c("your behind", NA, "richer"),
codingscheme = "sum",
na.rm = FALSE)$crt_sum