|
147 | 147 | #' VARselect(IC_small$F_pca[, 1:2]) |
148 | 148 | #' |
149 | 149 | #' # Estimating the model with 2 factors and 3 lags |
150 | | -#' dfm_small = DFM(BM14[, BM14_Models$small], 2, 3) |
| 150 | +#' dfm_small = DFM(BM14[, BM14_Models$small], r = 2, p = 3, |
| 151 | +#' quarterly.vars = BM14_Models %$% series[freq == "Q" & small]) |
151 | 152 | #' |
152 | 153 | #' # Inspecting the model |
153 | 154 | #' summary(dfm_small) |
|
170 | 171 | #' VARselect(IC_medium$F_pca[, 1:3]) |
171 | 172 | #' |
172 | 173 | #' # Estimating the model with 3 factors and 3 lags |
173 | | -#' dfm_medium = DFM(BM14[, BM14_Models$medium], 3, 3) |
| 174 | +#' dfm_medium = DFM(BM14[, BM14_Models$medium], r = 3, p = 3, |
| 175 | +#' quarterly.vars = BM14_Models %$% series[freq == "Q" & medium]) |
174 | 176 | #' |
175 | 177 | #' # Inspecting the model |
176 | 178 | #' summary(dfm_medium) |
|
193 | 195 | #' VARselect(IC_large$F_pca[, 1:6]) |
194 | 196 | #' |
195 | 197 | #' # Estimating the model with 6 factors and 3 lags |
196 | | -#' dfm_large = DFM(BM14, 6, 3) |
| 198 | +#' dfm_large = DFM(BM14, r = 6, p = 3, |
| 199 | +#' quarterly.vars = BM14_Models %$% series[freq == "Q"]) |
197 | 200 | #' |
198 | 201 | #' # Inspecting the model |
199 | 202 | #' summary(dfm_large) |
|
0 commit comments