From 9016c369b50cecb620bc093b460ca5c6b8985b5d Mon Sep 17 00:00:00 2001
From: Johannes Titz <johannes@titz.science>
Date: Wed, 6 Dec 2023 20:40:03 +0100
Subject: [PATCH] tests: add vectorized mixed example

---
 tests/testthat/test-examples.R | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/tests/testthat/test-examples.R b/tests/testthat/test-examples.R
index 340d477..275cc4a 100644
--- a/tests/testthat/test-examples.R
+++ b/tests/testthat/test-examples.R
@@ -139,6 +139,25 @@ test_that("rosenthal 53 works", {
   expect_equal(summary(t_53)$Effects[1], 0.871)
   }
 )
+
+t53_B <- calc_contrast(dv = rosenthal_tbl53$dv,
+                       within = rosenthal_tbl53$within,
+                       between = rosenthal_tbl53$between,
+                      id = rosenthal_tbl53$id,
+                      lambda_within = sample(c(
+                        "a" = -3, "b" = -1,
+                        "c" = 1, "d" = 3
+                      ), 4, F),
+                      lambda_between = sample(c(
+                        "age8" = -1, "age10" = 0,
+                        "age12" = 1
+                      ), 3, F)
+)
+
+test_that("calling vectorized works", {
+  expect_equal(t_53, t53_B)
+})
+
 # Rosenthal chap 5 exercise 2
 data(rosenthal_chap5_q2)