Running examples in ‘quantreg-Ex.R’ failed
The error most likely occurred in:

> ### Name: dynrq
> ### Title: Dynamic Linear Quantile Regression
> ### Aliases: dynrq print.dynrq print.dynrqs summary.dynrq summary.dynrqs
> ###   print.summary.dynrq print.summary.dynrqs time.dynrq index.dynrq
> ###   start.dynrq end.dynrq
> ### Keywords: regression
> 
> ### ** Examples
> 
> ###########################
> ## Dynamic Linear Quantile Regression Models ##
> ###########################
> 
> require(zoo)
Loading required package: zoo

Attaching package: ‘zoo’

The following objects are masked from ‘package:base’:

    as.Date, as.Date.numeric

> ## multiplicative median SARIMA(1,0,0)(1,0,0)_12 model fitted to UK seatbelt data
>      data("UKDriverDeaths", package = "datasets")
>      uk <- log10(UKDriverDeaths)
>      dfm <- dynrq(uk ~ L(uk, 1) + L(uk, 12))
>      dfm

Dynamic quantile regression "ts" data:
Start = 1970(1), End = 1984(12)
Call:
dynrq(formula = uk ~ L(uk, 1) + L(uk, 12))

Coefficients:
(Intercept)    L(uk, 1)   L(uk, 12) 
  0.1098037   0.3977455   0.5692163 

Degrees of freedom: 180 total; 177 residual
> 
>      dfm3 <- dynrq(uk ~ L(uk, 1) + L(uk, 12),tau = 1:3/4)
>      summary(dfm3)

Dynamic quantile  regression "numeric" data:
Start = 1, End = 180

Call: dynrq(formula = uk ~ L(uk, 1) + L(uk, 12), tau = 1:3/4)

tau: [1] 0.25

Coefficients:
            coefficients   lower bd       upper bd      
(Intercept)   2.150000e-01 -1.797693e+308  1.797693e+308
L(uk, 1)      3.988600e-01 -1.797693e+308  1.797693e+308
L(uk, 12)     5.230500e-01 -1.797693e+308  1.797693e+308

Call: dynrq(formula = uk ~ L(uk, 1) + L(uk, 12), tau = 1:3/4)

tau: [1] 0.5

Coefficients:
            coefficients   lower bd       upper bd      
(Intercept)   1.098000e-01 -1.797693e+308   5.955010e+00
L(uk, 1)      3.977500e-01  -4.959400e-01   8.633200e-01
L(uk, 12)     5.692200e-01 -1.797693e+308  1.797693e+308

Call: dynrq(formula = uk ~ L(uk, 1) + L(uk, 12), tau = 1:3/4)

tau: [1] 0.75

Coefficients:
            coefficients   lower bd       upper bd      
(Intercept)   2.017100e-01 -1.797693e+308  1.797693e+308
L(uk, 1)      3.769400e-01 -1.797693e+308   2.209210e+00
L(uk, 12)     5.692800e-01  -1.216900e-01  1.797693e+308
>  ## explicitly set start and end
>      dfm1 <- dynrq(uk ~ L(uk, 1) + L(uk, 12), start = c(1975, 1), end = c(1982, 12))
>  ## remove lag 12
>      dfm0 <- update(dfm1, . ~ . - L(uk, 12))
>      tuk1  <- anova(dfm0, dfm1)
>  ## add seasonal term
>      dfm1 <- dynrq(uk ~ 1, start = c(1975, 1), end = c(1982, 12))
Warning in rq.fit.br(x, y, tau = tau, ...) : Solution may be nonunique
>      dfm2 <- dynrq(uk ~ season(uk), start = c(1975, 1), end = c(1982, 12))
Warning in rq.fit.br(x, y, tau = tau, ...) : Solution may be nonunique
>      tuk2 <- anova(dfm1, dfm2)
>  ## regression on multiple lags in a single L() call
>      dfm3 <- dynrq(uk ~ L(uk, c(1, 11, 12)), start = c(1975, 1), end = c(1982, 12))
>      anova(dfm1, dfm3)
Quantile Regression Analysis of Deviance Table

Model 1: uk ~ L(uk, c(1, 11, 12))
Model 2: uk ~ 1
  Df Resid Df F value    Pr(>F)    
1  3       92  18.561 1.691e-09 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
> 
> ###############################
> ## Time Series Decomposition ##
> ###############################
> 
> ## airline data
> data("AirPassengers", package = "datasets")
> ap <- log(AirPassengers)
> fm <- dynrq(ap ~ trend(ap) + season(ap), tau = 1:4/5)
> sfm <- summary(fm)
> plot(sfm)
Error in plot.window(...) : infinite axis extents [GEPretty(-inf,inf,5)]
Calls: plot ... plot.summary.rqs -> plot -> plot.default -> localWindow -> plot.window
Execution halted