Nothing
# This file was generated by Rcpp::compileAttributes
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
mvndrawC <- function(mu, sig) {
.Call('bvarsv_mvndrawC', PACKAGE = 'bvarsv', mu, sig)
}
carterkohn <- function(y, Z, Ht, Qt, m, p, t, B0, V0) {
.Call('bvarsv_carterkohn', PACKAGE = 'bvarsv', y, Z, Ht, Qt, m, p, t, B0, V0)
}
alphahelper <- function(y, Z, Btdraw) {
.Call('bvarsv_alphahelper', PACKAGE = 'bvarsv', y, Z, Btdraw)
}
sigmahelper1 <- function(Atdraw, M) {
.Call('bvarsv_sigmahelper1', PACKAGE = 'bvarsv', Atdraw, M)
}
sigmahelper2 <- function(capAt, yhat, qs, ms, u2s, Sigtdraw, Zs, Wdraw, sigma_prmean, sigma_prvar) {
.Call('bvarsv_sigmahelper2', PACKAGE = 'bvarsv', capAt, yhat, qs, ms, u2s, Sigtdraw, Zs, Wdraw, sigma_prmean, sigma_prvar)
}
sigmahelper3 <- function(capAt, sigt) {
.Call('bvarsv_sigmahelper3', PACKAGE = 'bvarsv', capAt, sigt)
}
getvc <- function(Ht) {
.Call('bvarsv_getvc', PACKAGE = 'bvarsv', Ht)
}
makeregs_fcC <- function(ydat, p) {
.Call('bvarsv_makeregs_fcC', PACKAGE = 'bvarsv', ydat, p)
}
mz <- function(n) {
.Call('bvarsv_mz', PACKAGE = 'bvarsv', n)
}
meye <- function(n) {
.Call('bvarsv_meye', PACKAGE = 'bvarsv', n)
}
vechC <- function(x) {
.Call('bvarsv_vechC', PACKAGE = 'bvarsv', x)
}
getfcsts <- function(Bt0, At0, Sigt0, Qdraw, Sdraw, Wdraw, ydat, nf, p) {
.Call('bvarsv_getfcsts', PACKAGE = 'bvarsv', Bt0, At0, Sigt0, Qdraw, Sdraw, Wdraw, ydat, nf, p)
}
wishdrawC <- function(h, n) {
.Call('bvarsv_wishdrawC', PACKAGE = 'bvarsv', h, n)
}
makeregs2_fcC <- function(dat, p) {
.Call('bvarsv_makeregs2_fcC', PACKAGE = 'bvarsv', dat, p)
}
matmult <- function(x, nt) {
.Call('bvarsv_matmult', PACKAGE = 'bvarsv', x, nt)
}
varfcst <- function(b, sig, y, nf) {
.Call('bvarsv_varfcst', PACKAGE = 'bvarsv', b, sig, y, nf)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.