add tests for lagcorr and summarize

Author: Ben-Sacks

tests/testthat/test-compute_lagcorr.R

@@ -1,3 +1,24 @@
-test_that("multiplication works", {
-  expect_equal(2 * 2, 4)
+# unit testing for computing correlations
+
+# prepare data for lagged corr testing
+# should give corr of 1 when lagged by 2
+input <- data.frame(
+  Event_ID = "corr_test",
+  Participant_ID = rep(c("P1", "P2"), 50),
+  Exchange_Count = rep(1:50, each = 2),
+  emo_anger = c(rbind(1:50, c(0, 0, 1:48))) # interleave two sequences, one lagged by 2
+)
+
+test_that("computed pearson correlation is correct", {
+  # lagged by two should be equal to 1
+  p_output <- compute_lagcorr(input, corr_type = "Pearson")
+  expect_equal(p_output$TurnCorr_Lag2[1], 1)
+
+})
+
+
+test_that("computed spearman correlation is correct", {
+  # lagged by two should be equal to 1
+  p_output <- compute_lagcorr(input, corr_type = "Spearman")
+  expect_equal(p_output$TurnCorr_Lag2[1], 1)
 })

tests/testthat/test-summarize_dyads.R

@@ -0,0 +1,13 @@
+# tests for summarize_dyads larger function
+
+# data to input
+one_rhyme <- ConversationAlign::NurseryRhymes_Prepped[ConversationAlign::NurseryRhymes_Prepped$Event_ID == "LittleLamb",]
+one_rhyme <- droplevels(one_rhyme)
+
+test_that("required column names are present", {
+  # compute summarize dyads on single nursery rhyme
+  output <- ConversationAlign::summarize_dyads(one_rhyme)
+  # define list of required names and evaluate
+  col_vec <- c("Event_ID", "Participant_ID", "Dimension", "Dimension_Mean", "AUC_raw", "AUC_scaled100", "Talked_First")
+  expect_in(col_vec, colnames(output))
+})