Fix to examples for fcast and irf plot

R/85_plot_fcast.R

@@ -21,18 +21,18 @@
 #'
 #' @examples
 #' \donttest{
-#' data <- matrix(rnorm(200), ncol = 2)
+#' data <- matrix(rnorm(400), ncol = 4)
 #' x <- bvar(data, lags = 2)
 #'
 #' # Plot forecasts for all available variables
 #' bv_plot_fcast(x)
 #'
 #' # Subset to variables in positions 1, 2 and 4 via position and name
 #' bv_plot_fcast(x, vars = c(1, 2, 4))
-#' bv_plot_fcast(x,
-#'   variables = c("gdp", "flux", "cpi", "capacitor"),
-#'   vars = c("gdp", "flux", "capacitor")
-#' )
+# bv_plot_fcast(x,
+#   variables = c("gdp", "flux", "cpi", "capacitor"),
+#   vars = c("gdp", "flux", "capacitor")
+# )
 #'
 #' # Use the method to plot, adjust confidence bands and orientation
 #' plot(x$fcast, conf_bands = c(0.01, 0.05), orientation = "h")

R/86_plot_irf.R

@@ -23,18 +23,18 @@
 #'
 #' @examples
 #' \donttest{
-#' data <- matrix(rnorm(200), ncol = 2)
+#' data <- matrix(rnorm(400), ncol = 4)
 #' x <- bvar(data, lags = 2)
 #'
 #' # Plot impulse responses for all available variables
 #' bv_plot_irf(x)
 #'
 #' # Subset to impulse variables in positions 2 and 4 via position and name
 #' bv_plot_irf(x, vars_impulse = c(2, 4))
-#' bv_plot_irf(x,
-#'   variables = c("solved", "for", "many", "decades"),
-#'   vars_impulse = c("for", "decades")
-#' )
+# bv_plot_irf(x,
+#   variables = c("solved", "for", "many", "decades"),
+#   vars_impulse = c("for", "decades")
+# )
 #'
 #' # Use the method to plot and adjust confidence bands
 #' plot(x$irf, conf_bands = c(0.01, 0.05))