styler on aeddo()

ssi-dk · Nov 8, 2023 · 191c00f · 191c00f
1 parent fa7c7de
commit 191c00f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 6 deletions.
diff --git a/R/aeddo.R b/R/aeddo.R
@@ -9,7 +9,6 @@ aeddo <- function(
     lower,
     upper,
     method = "BFGS") {
-
   # Count the number of observations
   n_observations <- length(y)
 
@@ -24,7 +23,8 @@ aeddo <- function(
       u_probability = numeric(),
       outbreak_alarm = logical()
     ),
-    class = "aedseo")
+    class = "aedseo"
+  )
 
   # Loop over the observations to perform windowed estimation
   for (i in 1:(n_observations - k)) {
@@ -99,5 +99,4 @@ aeddo <- function(
   }
 
   return(results)
-
 }
diff --git a/tests/testthat/test-aeddo.R b/tests/testthat/test-aeddo.R
@@ -1,5 +1,4 @@
 test_that("Proper 'aedseo' class is returned", {
-
   # Generate some sample data
   y <- rnbinom(n = 40, size = 10, prob = 0.7)
 
@@ -14,9 +13,9 @@ test_that("Proper 'aedseo' class is returned", {
     init_theta = c(1, 1),
     lower = c(-Inf, 1e-6),
     upper = c(Inf, 1e2),
-    method = "L-BFGS-B")
+    method = "L-BFGS-B"
+  )
 
   # Test that the correct class is returned
   expect_s3_class(aeddo_results, "aedseo")
-
 })