remove dupes imports call and fix talked_first in compute_laggcor

Ben-Sacks · Ben-Sacks · commit 46d65bc47010 · 2025-07-12T15:40:12.000-04:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -31,7 +31,6 @@ Imports:
     tibble,
     tidyr,
     tidyselect,
-    utils,
     stats,
     utils,
     YRmisc,
diff --git a/R/compute_lagcorr.R b/R/compute_lagcorr.R
@@ -141,7 +141,7 @@ compute_lagcorr <- function(df_prep, lags = c(-2, 0, 2), corr_type = "Pearson")
 
       # Combine results
       dyad_covar <- dplyr::bind_cols(dyad_dim_list, Event_ID = unique(df$Event_ID))
-      dyad_covar$Talked_First <- participantvec[2]
+      dyad_covar$Talked_First <- participantvec[1]
       dyad_covar
     })
 

-Original file line number
+Diff line change
     tibble,
     tidyr,
     tidyselect,
 -    utils,
     stats,
     utils,
     YRmisc,