# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
EstDFM <- function(B, Bp, Jb, lam_B, q, nu_q, H, Hp, lam_H, R, nu_r, Y, freq, LD, store_Y = FALSE, store_idx = 0L, reps = 1000L, burn = 500L, verbose = FALSE) {
.Call('_bdfm_EstDFM', PACKAGE = 'bdfm', B, Bp, Jb, lam_B, q, nu_q, H, Hp, lam_H, R, nu_r, Y, freq, LD, store_Y, store_idx, reps, burn, verbose)
}
Ksmoother <- function(A, Q, HJ, R, Y) {
.Call('_bdfm_Ksmoother', PACKAGE = 'bdfm', A, Q, HJ, R, Y)
}
KestExact <- function(A, Q, H, R, Y, itc, m, p) {
.Call('_bdfm_KestExact', PACKAGE = 'bdfm', A, Q, H, R, Y, itc, m, p)
}
J_MF <- function(days, m, ld, sA) {
.Call('_bdfm_J_MF', PACKAGE = 'bdfm', days, m, ld, sA)
}
PrinComp <- function(Y, m) {
.Call('_bdfm_PrinComp', PACKAGE = 'bdfm', Y, m)
}
BReg <- function(X, Y, Int, Bp, lam, nu, reps = 1000L, burn = 1000L) {
.Call('_bdfm_BReg', PACKAGE = 'bdfm', X, Y, Int, Bp, lam, nu, reps, burn)
}
BReg_diag <- function(X, Y, Int, Bp, lam, nu, reps = 1000L, burn = 1000L) {
.Call('_bdfm_BReg_diag', PACKAGE = 'bdfm', X, Y, Int, Bp, lam, nu, reps, burn)
}
DSmooth <- function(B, Jb, q, H, R, Y, freq, LD) {
.Call('_bdfm_DSmooth', PACKAGE = 'bdfm', B, Jb, q, H, R, Y, freq, LD)
}
DSMF <- function(B, Jb, q, H, R, Y, freq, LD) {
.Call('_bdfm_DSMF', PACKAGE = 'bdfm', B, Jb, q, H, R, Y, freq, LD)
}
FSimMF <- function(B, Jb, q, H, R, Y, freq, LD) {
.Call('_bdfm_FSimMF', PACKAGE = 'bdfm', B, Jb, q, H, R, Y, freq, LD)
}
Identify <- function(H, q) {
.Call('_bdfm_Identify', PACKAGE = 'bdfm', H, q)
}
QuickReg <- function(X, Y) {
.Call('_bdfm_QuickReg', PACKAGE = 'bdfm', X, Y)
}
UVreg <- function(x, y, rm_outlier = 0L) {
.Call('_bdfm_UVreg', PACKAGE = 'bdfm', x, y, rm_outlier)
}
comp_form <- function(B) {
.Call('_bdfm_comp_form', PACKAGE = 'bdfm', B)
}
mvrnrm <- function(n, mu, Sigma) {
.Call('_bdfm_mvrnrm', PACKAGE = 'bdfm', n, mu, Sigma)
}
rinvwish <- function(n, v, S) {
.Call('_bdfm_rinvwish', PACKAGE = 'bdfm', n, v, S)
}
invchisq <- function(nu, scale) {
.Call('_bdfm_invchisq', PACKAGE = 'bdfm', nu, scale)
}
stack_obs <- function(nn, p, r = 0L) {
.Call('_bdfm_stack_obs', PACKAGE = 'bdfm', nn, p, r)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.