From bc6360d11578479a881affe15d3fc70ead033e5e Mon Sep 17 00:00:00 2001
From: Ben Letham <bletham@gmail.com>
Date: Tue, 12 Jun 2018 16:53:14 -0700
Subject: [PATCH] Fix bug in seasonal components with MCMC

---
 R/R/prophet.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/R/prophet.R b/R/R/prophet.R
index 5d70192..d2a821d 100644
--- a/R/R/prophet.R
+++ b/R/R/prophet.R
@@ -1304,9 +1304,9 @@ predict_seasonal_components <- function(m, df) {
   X <- as.matrix(seasonal.features)
   component.predictions <- data.frame(matrix(ncol = 0, nrow = nrow(X)))
   for (component in colnames(component.cols)) {
-    beta.c <- m$params$beta * component.cols[[component]]
+    beta.c <- t(m$params$beta) * component.cols[[component]]
 
-    comp <- X %*% t(beta.c)
+    comp <- X %*% beta.c
     if (component %in% m$component.modes$additive) {
       comp <- comp * m$y.scale
     }