resp <- response(score = c(0, 1, 0), examinee_id = "Ex-412",
item_id = c("I1", "I2", "I3"),
raw_response = c("B", "D", "A"),
order = 1:3,
response_time = c(66, 23, 89),
misc = list(form = "A1",
operational = c(TRUE, TRUE, FALSE))
)
resp$score
resp$item_id
resp$examinee_id
resp$raw_response
resp$order
resp$response_time
resp$misc
resp$misc$form
resp$form
Run the code above in your browser using DataLab