From e8ec91572a5c8000ca859d8dd0d46d89315b9db0 Mon Sep 17 00:00:00 2001 From: Jason Geller Date: Tue, 4 Feb 2025 13:12:12 -0500 Subject: [PATCH] add L2 to objects for samp rate --- _manuscript/L2_VWP_webcam_ET.qmd | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/_manuscript/L2_VWP_webcam_ET.qmd b/_manuscript/L2_VWP_webcam_ET.qmd index 65f7705..f386103 100644 --- a/_manuscript/L2_VWP_webcam_ET.qmd +++ b/_manuscript/L2_VWP_webcam_ET.qmd @@ -739,8 +739,8 @@ When using the above function, separate dataframes are produced by-participants ```{r} # Extract by-subject and by-trial sampling rates from the result -subject_sampling_rate <- samp_rate$summary_SR_by_subject # Sampling rate by subject -trial_sampling_rate <- samp_rate$SR_by_trial # Sampling rate by trial +subject_sampling_rate <- samp_rate_L2$summary_SR_by_subject # Sampling rate by subject +trial_sampling_rate <- samp_rate_L2$SR_by_trial # Sampling rate by trial # Ensure subject and trial are factors for proper merging trial_sampling_rate$subject <- as.factor(trial_sampling_rate$subject) @@ -753,7 +753,7 @@ colnames(subject_sampling_rate)[colnames(subject_sampling_rate) == "summary_SR"] colnames(trial_sampling_rate)[colnames(trial_sampling_rate) == "SR"] <- "sampling_rate_trial" # Merge by-subject sampling rate with target data -target_data_with_subject_SR <- trial_data_rt %>% +target_data_with_subject_SR <- trial_data_rt_L2 %>% left_join(subject_sampling_rate, by = "subject") # Merge by-trial sampling rate with target data