Last updated on 2024-05-18 12:49:59 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.9.10 | 133.33 | 136.55 | 269.88 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.9.10 | 104.27 | 95.70 | 199.97 | OK | |
| r-devel-linux-x86_64-fedora-clang | 0.9.10 | 377.99 | NOTE | |||
| r-devel-linux-x86_64-fedora-gcc | 0.9.10 | 393.10 | OK | |||
| r-devel-windows-x86_64 | 0.9.10 | 103.00 | 161.00 | 264.00 | NOTE | |
| r-patched-linux-x86_64 | 0.9.10 | 173.71 | 134.35 | 308.06 | OK | |
| r-release-linux-x86_64 | 0.9.10 | 167.06 | 135.44 | 302.50 | OK | |
| r-release-macos-arm64 | 0.9.10 | 82.00 | NOTE | |||
| r-release-windows-x86_64 | 0.9.10 | 104.00 | 162.00 | 266.00 | NOTE | |
| r-oldrel-macos-arm64 | 0.9.10 | 87.00 | NOTE | |||
| r-oldrel-macos-x86_64 | 0.9.10 | 161.00 | NOTE | |||
| r-oldrel-windows-x86_64 | 0.9.10 | 133.00 | 257.00 | 390.00 | NOTE |
Version: 0.9.10
Check: examples
Result: ERROR
Running examples in ‘bsts-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: regression.holiday
> ### Title: Regression Based Holiday Models
> ### Aliases: AddRegressionHoliday RegressionHolidayStateModel
> ### AddHierarchicalRegressionHoliday
> ### HierarchicalRegressionHolidayStateModel
> ### Keywords: models
>
> ### ** Examples
>
> trend <- cumsum(rnorm(730, 0, .1))
> dates <- seq.Date(from = as.Date("2014-01-01"), length = length(trend), by = "day")
> y <- zoo(trend + rnorm(length(trend), 0, .2), dates)
>
> AddHolidayEffect <- function(y, dates, effect) {
+ ## Adds a holiday effect to simulated data.
+ ## Args:
+ ## y: A zoo time series, with Dates for indices.
+ ## dates: The dates of the holidays.
+ ## effect: A vector of holiday effects of odd length. The central effect is
+ ## the main holiday, with a symmetric influence window on either side.
+ ## Returns:
+ ## y, with the holiday effects added.
+ time <- dates - (length(effect) - 1) / 2
+ for (i in 1:length(effect)) {
+ y[time] <- y[time] + effect[i]
+ time <- time + 1
+ }
+ return(y)
+ }
>
> ## Define some holidays.
> memorial.day <- NamedHoliday("MemorialDay")
> memorial.day.effect <- c(.3, 3, .5)
> memorial.day.dates <- as.Date(c("2014-05-26", "2015-05-25"))
> y <- AddHolidayEffect(y, memorial.day.dates, memorial.day.effect)
>
> presidents.day <- NamedHoliday("PresidentsDay")
> presidents.day.effect <- c(.5, 2, .25)
> presidents.day.dates <- as.Date(c("2014-02-17", "2015-02-16"))
> y <- AddHolidayEffect(y, presidents.day.dates, presidents.day.effect)
>
> labor.day <- NamedHoliday("LaborDay")
> labor.day.effect <- c(1, 2, 1)
> labor.day.dates <- as.Date(c("2014-09-01", "2015-09-07"))
> y <- AddHolidayEffect(y, labor.day.dates, labor.day.effect)
>
> ## The holidays can be in any order.
> holiday.list <- list(memorial.day, labor.day, presidents.day)
>
> ## In a real example you'd want more than 100 MCMC iterations.
> niter <- 100
>
> ## Fit the model
> ss <- AddLocalLevel(list(), y)
> ss <- AddRegressionHoliday(ss, y, holiday.list = holiday.list)
> model <- bsts(y, state.specification = ss, niter = niter)
=-=-=-=-= Iteration 0 Fri May 17 12:35:56 2024 =-=-=-=-=
=-=-=-=-= Iteration 10 Fri May 17 12:35:56 2024 =-=-=-=-=
=-=-=-=-= Iteration 20 Fri May 17 12:35:56 2024 =-=-=-=-=
=-=-=-=-= Iteration 30 Fri May 17 12:35:56 2024 =-=-=-=-=
=-=-=-=-= Iteration 40 Fri May 17 12:35:57 2024 =-=-=-=-=
=-=-=-=-= Iteration 50 Fri May 17 12:35:57 2024 =-=-=-=-=
=-=-=-=-= Iteration 60 Fri May 17 12:35:57 2024 =-=-=-=-=
=-=-=-=-= Iteration 70 Fri May 17 12:35:57 2024 =-=-=-=-=
=-=-=-=-= Iteration 80 Fri May 17 12:35:57 2024 =-=-=-=-=
=-=-=-=-= Iteration 90 Fri May 17 12:35:57 2024 =-=-=-=-=
>
> ## Plot all model state components.
> plot(model, "comp")
>
> ## Plot the specific holiday state component.
> plot(ss[[2]], model)
>
> ## Try again with some shrinkage. With only 3 holidays there won't be much
> ## shrinkage.
> ss2 <- AddLocalLevel(list(), y)
>
> ## Plot the specific holiday state component.
> ss2 <- AddHierarchicalRegressionHoliday(ss2, y, holiday.list = holiday.list)
> model2 <- bsts(y, state.specification = ss2, niter = niter)
=-=-=-=-= Iteration 0 Fri May 17 12:35:58 2024 =-=-=-=-=
=-=-=-=-= Iteration 10 Fri May 17 12:35:58 2024 =-=-=-=-=
=-=-=-=-= Iteration 20 Fri May 17 12:35:59 2024 =-=-=-=-=
=-=-=-=-= Iteration 30 Fri May 17 12:35:59 2024 =-=-=-=-=
=-=-=-=-= Iteration 40 Fri May 17 12:35:59 2024 =-=-=-=-=
=-=-=-=-= Iteration 50 Fri May 17 12:35:59 2024 =-=-=-=-=
=-=-=-=-= Iteration 60 Fri May 17 12:35:59 2024 =-=-=-=-=
=-=-=-=-= Iteration 70 Fri May 17 12:35:59 2024 =-=-=-=-=
=-=-=-=-= Iteration 80 Fri May 17 12:35:59 2024 =-=-=-=-=
=-=-=-=-= Iteration 90 Fri May 17 12:36:00 2024 =-=-=-=-=
>
> plot(model2, "comp")
Error in apply(curves, 2, quantile, probs = qtl, na.rm = TRUE) :
dim(X) must have a positive length
Calls: plot ... .PlotStateContribution -> PlotDynamicDistribution -> t -> apply
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.9.10
Check: installed package size
Result: NOTE
installed size is 9.5Mb
sub-directories of 1Mb or more:
libs 8.6Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-x86_64, r-release-macos-arm64, r-release-windows-x86_64, r-oldrel-macos-arm64, r-oldrel-macos-x86_64, r-oldrel-windows-x86_64