saymrwulf/prophet
1
0
Fork 0
mirror of https://github.com/saymrwulf/prophet.git synced 2026-05-18 21:21:22 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #39 from rschoenbeck/issue-31-34

Browse source 
issue-31-34 patch holiday forecast comp
This commit is contained in:
Sean J. Taylor 2017-02-27 17:08:35 -08:00 committed by GitHub
commit 158f49db59
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
R/R/prophet.R
View file

@ -951,13 +951,13 @@ prophet_plot_components <- function(m, fcst, uncertainty = TRUE) {
panels <- list(gg.trend)
# Plot holiday components, if present.
if (!is.null(m$holidays)) {
holiday.comps <- unique(m$holidays$holiday)
holiday.comps <- unique(m$holidays$holiday) %>% as.character()
df.s <- data.frame(ds = df$ds,
holidays = rowSums(df[, holiday.comps]),
holidays = rowSums(df[, holiday.comps, drop = FALSE]),
holidays_lower = rowSums(df[, paste0(holiday.comps,
"_lower")]),
"_lower"), drop = FALSE]),
holidays_upper = rowSums(df[, paste0(holiday.comps,
"_upper")]))
"_upper"), drop = FALSE]))
# NOTE the above CI calculation is incorrect if holidays overlap in time.
# Since it is just for the visualization we will not worry about it now.
gg.holidays <- ggplot2::ggplot(df.s, ggplot2::aes(x = ds, y = holidays)) +