From 3dd92c0739bfff547ccb935b9f09d773de312420 Mon Sep 17 00:00:00 2001
From: SofiaOtero <myrup.otero@gmail.com>
Date: Fri, 31 Jan 2025 11:50:09 +0100
Subject: [PATCH] Fixing: test error

---
 tests/testthat/test-seasonal_burden_levels.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tests/testthat/test-seasonal_burden_levels.R b/tests/testthat/test-seasonal_burden_levels.R
index 719e456..d7de5f1 100644
--- a/tests/testthat/test-seasonal_burden_levels.R
+++ b/tests/testthat/test-seasonal_burden_levels.R
@@ -52,11 +52,12 @@ test_that("Test that input argument checks work", {
 
   #Finally check that dots arguments work
   model_output <- seasonal_burden_levels(
-    tsd_data, family = "exp",
+    tsd_data,
+    family = "exp",
     optim_method = "Brent",
     lower_optim = 1, upper_optim = 1000
   )
-  expect_equal(model_output$family, "exp")
+  expect_equal(model_output$optim$family, "exp")
 })
 
 test_that("Test that we get correct season output for newest season", {