Add post_gamma_state_variance

franzmohr · Oct 19, 2023 · 5cf692f · 5cf692f
1 parent ccae0f2
commit 5cf692f
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/R/RcppExports.R b/R/RcppExports.R
@@ -464,15 +464,15 @@ post_coint_kls_sur <- function(y, beta, w, sigma_i, v_i, p_tau_i, g_i, x = NULL,
 #'   a[, i] <- a[, i - 1] + rnorm(k, 0, sqrt(1 / 100))
 #' }
 #' 
-#' a_init <- matrix(a[, 1]) # Define inital state
+#' a_init <- matrix(a[, 1]) # Define initial state
 #' a <- a[, -1] # Drop initial state from main sample
 #' 
 #' # Define priors
 #' shape_prior <- matrix(1, k)
 #' rate_prior <- matrix(.0001, k)
 #' 
 #' # Obtain posterior draw
-#' post_gamma_state_variance(a, a_init, shape_prior, rate_prior)
+#' post_gamma_state_variance(a, a_init, shape_prior, rate_prior, inverse = FALSE)
 #' 
 #' @return A matrix.
 #' 

diff --git a/man/post_gamma_state_variance.Rd b/man/post_gamma_state_variance.Rd
diff --git a/src/post_gamma_state_variance.cpp b/src/post_gamma_state_variance.cpp
@@ -37,15 +37,15 @@
 //'   a[, i] <- a[, i - 1] + rnorm(k, 0, sqrt(1 / 100))
 //' }
 //' 
-//' a_init <- matrix(a[, 1]) # Define inital state
+//' a_init <- matrix(a[, 1]) # Define initial state
 //' a <- a[, -1] # Drop initial state from main sample
 //' 
 //' # Define priors
 //' shape_prior <- matrix(1, k)
 //' rate_prior <- matrix(.0001, k)
 //' 
 //' # Obtain posterior draw
-//' post_gamma_state_variance(a, a_init, shape_prior, rate_prior)
+//' post_gamma_state_variance(a, a_init, shape_prior, rate_prior, inverse = FALSE)
 //' 
 //' @return A matrix.
 //'