Run some checks, add stats imports

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: BVAR
 Type: Package
 Title: Hierarchical Bayesian Vector Autoregression
-Version: 0.1.6.9000
+Version: 0.1.6
 Date: 2019-08-28
 Authors@R: c(person("Nikolas",  "Kuschnig", role = c("aut", "cre"), email = "nikolas.kuschnig@wu.ac.at"),
     person("Lukas", "Vashold", role = "aut"),
@@ -15,7 +15,7 @@ URL: https://github.com/nk027/bvar
 BugReports: https://github.com/nk027/bvar/issues
 Depends: R (>= 3.3.0)
 Imports: MASS, stats, graphics, utils
-Suggests: vars, coda
+Suggests: vars
 License: GPL-3
 Encoding: UTF-8
 LazyData: true

NAMESPACE

@@ -41,9 +41,8 @@ export(bv_metropolis)
 export(bv_mh)
 export(bv_minnesota)
 export(bv_mn)
+export(bv_plot)
 export(bv_plot_density)
-export(bv_plot_fcast)
-export(bv_plot_irf)
 export(bv_plot_trace)
 export(bv_priors)
 export(bv_psi)
@@ -60,13 +59,17 @@ importFrom(graphics,par)
 importFrom(graphics,plot)
 importFrom(graphics,polygon)
 importFrom(stats,arima)
+importFrom(stats,coef)
 importFrom(stats,density)
 importFrom(stats,dgamma)
+importFrom(stats,fitted)
 importFrom(stats,optim)
 importFrom(stats,predict)
 importFrom(stats,quantile)
+importFrom(stats,residuals)
 importFrom(stats,rnorm)
 importFrom(stats,runif)
 importFrom(stats,ts.plot)
+importFrom(stats,vcov)
 importFrom(utils,setTxtProgressBar)
 importFrom(utils,txtProgressBar)

R/80_plot.R

@@ -34,6 +34,9 @@
 #'
 #' # Compare with second chain
 #' plot(x, chains = y)
+#'
+#' # Only plot the marginal likelihood's density
+#' plot(x, "dens", "ml")
 #' }
 plot.bvar <- function(
   x,

R/91_fitted.R

@@ -7,9 +7,6 @@
 #' @param conf_bands Numeric vector of desired confidence bands to apply.
 #' E.g. for bands at 5\%, 10\%, 90\% and 95\% set this to \code{c(0.05, 0.1)}.
 #' Note that the median, i.e. 0.5 is always included.
-#' @param n_thin Integer scalar. Every \emph{n_thin}'th draw in \emph{object}
-#' is used for forecasting, others are dropped. Defaults to \code{100L}, to
-#' prevent memory overflow.
 #'
 #' @param x Object of class \code{bvar_fitted} / \code{bvar_resid}.
 #' @param digits Integer scalar. Fed to \code{\link[base]{round}} and applied to
@@ -26,6 +23,8 @@
 #'
 #' @export
 #'
+#' @importFrom stats fitted residuals
+#'
 #' @examples
 #' \donttest{
 #' data <- matrix(rnorm(200), ncol = 2)

R/92_coef.R

@@ -20,6 +20,8 @@
 #'
 #' @export
 #'
+#' @importFrom stats coef vcov
+#'
 #' @examples
 #' \donttest{
 #' data <- matrix(rnorm(200), ncol = 2)

R/deprecated.R

@@ -105,16 +105,14 @@ bv_plot_irf <- function(
   variables = NULL,
   vars_impulse = NULL,
   vars_response = NULL,
-  orientation = c("vertical", "horizontal"),
   mar = c(2, 2, 2, 0.5),
   ...) {
 
   .Deprecated("plot.bvar_irf")
-  plot_fcast(
+  plot_irf(
     x, conf_bands,
     variables = variables,
     vars_impulse = vars_impulse, vars_response = vars_response,
-    orientation = orientation,
     mar = mar, ... = ...)
 }