Fix bug in seasonal components with MCMC

This commit is contained in:
Ben Letham 2018-06-12 16:53:14 -07:00
parent a5869505c0
commit bc6360d115

View file

@ -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
}