# NOT RUN {
data(wide_data)
data(answer_key_free)
DF_long <- arrange_data(data = wide_data,
responses = "Response",
sep = ",",
id = "Sub.ID")
scored_output <- prop_correct_free(data = DF_long,
responses = "response",
key = answer_key_free$Answer_Key,
id = "Sub.ID",
cutoff = 1,
flag = TRUE,
group.by = "Disease.Condition")
head(scored_output$DF_Scored)
head(scored_output$DF_Participant)
head(scored_output$DF_Group)
# }
Run the code above in your browser using DataLab