R/RcppExports.R

Defines functions c_cov2cor c_draw_mu c_draw_Sigma c_sample_mvnorm c_sample_mvnorm_hier c_mvnorm_fill_missing zsetseed zgetseed zrnorm c_random_mvnorm rwishart store_covmat store_covgrouparray

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

c_cov2cor <- function(m) {
    .Call('_mvtraits_c_cov2cor', PACKAGE = 'mvtraits', m)
}

c_draw_mu <- function(xbar, nx, Sigma_inv, mu0, Sigma_0_inv) {
    .Call('_mvtraits_c_draw_mu', PACKAGE = 'mvtraits', xbar, nx, Sigma_inv, mu0, Sigma_0_inv)
}

c_draw_Sigma <- function(x, mu, v0, S0) {
    .Call('_mvtraits_c_draw_Sigma', PACKAGE = 'mvtraits', x, mu, v0, S0)
}

c_sample_mvnorm <- function(niter, dat, mu, Sigma, mu0, Sigma0_inv, v0, S0, setup, progress) {
    .Call('_mvtraits_c_sample_mvnorm', PACKAGE = 'mvtraits', niter, dat, mu, Sigma, mu0, Sigma0_inv, v0, S0, setup, progress)
}

c_sample_mvnorm_hier <- function(niter, dat, groups, mu_global, Sigma_global, mu_group, Sigma_group, mu0_global, Sigma0_global_inv, mu0_group, Sigma0_group_inv, v0_global, S0_global, v0_group, S0_group, setup_bygroup, progress) {
    .Call('_mvtraits_c_sample_mvnorm_hier', PACKAGE = 'mvtraits', niter, dat, groups, mu_global, Sigma_global, mu_group, Sigma_group, mu0_global, Sigma0_global_inv, mu0_group, Sigma0_group_inv, v0_global, S0_global, v0_group, S0_group, setup_bygroup, progress)
}

c_mvnorm_fill_missing <- function(dat, mu, Sigma, setup) {
    .Call('_mvtraits_c_mvnorm_fill_missing', PACKAGE = 'mvtraits', dat, mu, Sigma, setup)
}

zsetseed <- function(s) {
    invisible(.Call('_mvtraits_zsetseed', PACKAGE = 'mvtraits', s))
}

zgetseed <- function() {
    .Call('_mvtraits_zgetseed', PACKAGE = 'mvtraits')
}

zrnorm <- function() {
    .Call('_mvtraits_zrnorm', PACKAGE = 'mvtraits')
}

c_random_mvnorm <- function(n, mu, Sigma) {
    .Call('_mvtraits_c_random_mvnorm', PACKAGE = 'mvtraits', n, mu, Sigma)
}

rwishart <- function(df, S) {
    .Call('_mvtraits_rwishart', PACKAGE = 'mvtraits', df, S)
}

store_covmat <- function(X) {
    .Call('_mvtraits_store_covmat', PACKAGE = 'mvtraits', X)
}

store_covgrouparray <- function(X) {
    .Call('_mvtraits_store_covgrouparray', PACKAGE = 'mvtraits', X)
}
ashiklom/mvtraits documentation built on Sept. 4, 2019, 7:43 a.m.