crp_multiple.RdThis function calculates the conditional response probability of each lag position. Participants' lag between subsequent named items is tallied and then divided by the possible combination of subsequent lags given their response pattern. This function was designed to handle multiple or randomized lists across participants.
crp_multiple(data, position, answer, id, key, key.trial, id.trial, scored)a dataframe of the scored free recall that you would like to calculate - use prop_correct_free() for best formatting.
a column name in the dataframe that contains answered position of each response in quotes (i.e., "column")
a column name of the answer given for that position in the original dataframe.
a column name of the participant id in the original dataframe.
a vector containing the scoring key or data column name. This column does not have to be included in the original dataframe. We assume your answer key is in the tested position order. You should not include duplicates in your answer key.
a vector containing the trial numbers for each answer. Note: If you input long data (i.e., repeating trial-answer responses), we will take the unique combination of the responses. If a trial number is repeated, you will receive an error. Key and key.trial can also be a separate dataframe, depending on how your output data is formatted.
a column name containing the trial numbers for the participant data from the original dataframe. Note that the free response "key" trial and this trial number should match. The trial key will be repeated for each answer a participant gave.
a column in the original dataframe indicating if the participant got the answer correct (1) or incorrect (0).
A dataframe of the proportion correct for each conditional lag position including any other between subjects variables present in the data.
This output can then be used to create a CRP visualizations, and an example can be found in our manuscript/vignettes.
data("multi_data")
data("multi_answers")
DF_long <- arrange_data(data = multi_data,
responses = "Response",
sep = " ",
id = "Sub.ID",
repeated = "List.Number")
library(reshape)
multi_answers$position <- 1:nrow(multi_answers)
answer_long <- melt(multi_answers,
measured = colnames(multi_answers),
id = "position")
colnames(answer_long) <- c("position", "List.ID", "Answer")
answer_long$List.ID <- gsub(pattern = "List",
replacement = "",
x = answer_long$List.ID)
DF_long$response <- tolower(DF_long$response)
answer_long$Answer <- tolower(answer_long$Answer)
answer_long$Answer <- gsub(" ", "", answer_long$Answer)
scored_output <- prop_correct_multiple(data = DF_long,
responses = "response",
key = answer_long$Answer,
key.trial = answer_long$List.ID,
id = "Sub.ID",
id.trial = "List.Number",
cutoff = 1,
flag = TRUE)
head(scored_output$DF_Scored)
#> Responses position Sub.ID List.Number Answer Scored
#> 1 basil 8 5 1 basil 1
#> 2 basil 7 3 1 basil 1
#> 3 bayleaves 7 1 1 bayleaves 1
#> 4 bayleaves 8 3 1 bayleaves 1
#> 5 bayleaves 3 5 1 bayleaves 1
#> 6 celeryseed 1 5 1 celeryseed 1
head(scored_output$DF_Participant)
#> Sub.ID Proportion.Correct List.Number Z.Score.Participant
#> 1 1 0.30 1 -1.1547005
#> 2 3 0.45 1 0.5773503
#> 3 5 0.45 1 0.5773503
#> 4 1 0.45 2 -0.5773503
#> 5 3 0.45 2 -0.5773503
#> 6 5 0.55 2 1.1547005
crp_output <- crp_multiple(data = scored_output$DF_Scored,
key = answer_long$Answer,
position = "position",
scored = "Scored",
answer = "Answer",
id = "Sub.ID",
key.trial = answer_long$List.ID,
id.trial = "List.Number")
head(crp_output)
#> Sub.ID participant_lags Freq Possible.Freq List.Number CRP
#> 1 1 -19 0 0 1 0.0
#> 2 1 -18 0 0 1 0.0
#> 3 1 -17 0 0 1 0.0
#> 4 1 -16 0 0 1 0.0
#> 5 1 -15 1 2 1 0.5
#> 6 1 -14 0 0 1 0.0