Fix map seasonality plots

.Rbuildignore

@@ -1,3 +1,5 @@
+^renv$
+^renv\.lock$
 ^.*\.Rproj$
 ^\.Rproj\.user$
 ^\.travis\.yml$

.gitignore

@@ -58,3 +58,5 @@ Thumbs.db
 # RStudio files
 .Rproj.user
 _processedLockFile.lock
+.Rprofile
+renv/

R/prophet.R

@@ -366,6 +366,14 @@ Prophet <- function(jaspResults, dataset = NULL, options) {
 }
 
 .prophetModelResultsReduce <- function(prophetModelResults, options) {
+  # seasonality estimates
+  predictedSeasonalities <- list()
+  for (seas in options[["seasonalities"]]) {
+    name <- seas[["name"]]
+    predictedSeasonalities[[name]] <- .prophetPredictSeasonality(name, prophetModelResults, options)
+  }
+  prophetModelResults[["predictedSeasonalities"]] <- predictedSeasonalities
+
   if (options$estimation == "mcmc") {
     # posterior summaries
     ci <- .prophetIntervalLevels(options, "credible")
@@ -383,14 +391,6 @@ Prophet <- function(jaspResults, dataset = NULL, options) {
     }
     prophetModelResults[["parameterDensities"]] <- parameterDensities
 
-    # seasonality estimates
-    predictedSeasonalities <- list()
-    for (seas in options[["seasonalities"]]) {
-      name <- seas[["name"]]
-      predictedSeasonalities[[name]] <- .prophetPredictSeasonality(name, prophetModelResults, options)
-    }
-    prophetModelResults[["predictedSeasonalities"]] <- predictedSeasonalities
-
     # remove stanfit and mcmc samples from the results to reduce size of the results
     prophetModelResults$stan.fit <- NULL
     prophetModelResults$params   <- NULL

tests/testthat/test-prophet.R

@@ -186,7 +186,7 @@ test_that("Parameter Estimates Table results match (MAP)", {
   {
     # test windows result
     testthat::skip_on_os(c("mac", "linux"))
-    jaspTools::expect_equal_tables(table, list(-2.50859195109382, -2.31656506358638, 0.32805219661169))
+    jaspTools::expect_equal_tables(table, list(-2.50358957234044, -2.32147823235013, 0.328046513061461))
   }
 
   {