R/RcppExports.R

In qgg: Statistical Tools for Quantitative Genetic Analyses

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

readG <- function(file, n, cls) {
    .Call(`_qgg_readG`, file, n, cls)
}

readW <- function(file, n, cls, af) {
    .Call(`_qgg_readW`, file, n, cls, af)
}

freqbed <- function(file, n, mask, cls) {
    .Call(`_qgg_freqbed`, file, n, mask, cls)
}

summarybed <- function(file, n, cls, af, weights, y) {
    .Call(`_qgg_summarybed`, file, n, cls, af, weights, y)
}

bayes <- function(y, W, b, lambda, pi, gamma, vb, vg, ve, ssb_prior, ssg_prior, sse_prior, nub, nug, nue, updateB, updateG, updateE, updatePi, nit, nburn, nthin, method, seed) {
    .Call(`_qgg_bayes`, y, W, b, lambda, pi, gamma, vb, vg, ve, ssb_prior, ssg_prior, sse_prior, nub, nug, nue, updateB, updateG, updateE, updatePi, nit, nburn, nthin, method, seed)
}

sbayes <- function(yy, wy, ww, LDvalues, LDindices, b, lambda, mask, pi, gamma, vg, vb, ve, ssb_prior, ssg_prior, sse_prior, nub, nug, nue, updateB, updateG, updateE, updatePi, adjustE, n, nit, nburn, nthin, method, algo, seed) {
    .Call(`_qgg_sbayes`, yy, wy, ww, LDvalues, LDindices, b, lambda, mask, pi, gamma, vg, vb, ve, ssb_prior, ssg_prior, sse_prior, nub, nug, nue, updateB, updateG, updateE, updatePi, adjustE, n, nit, nburn, nthin, method, algo, seed)
}

sbayes_reg <- function(yy, wy, ww, LDvalues, LDindices, b, lambda, mask, pi, gamma, vb, vg, ve, ssb_prior, ssg_prior, sse_prior, nub, nug, nue, updateB, updateG, updateE, updatePi, n, nit, nburn, nthin, method, algo, seed) {
    .Call(`_qgg_sbayes_reg`, yy, wy, ww, LDvalues, LDindices, b, lambda, mask, pi, gamma, vb, vg, ve, ssb_prior, ssg_prior, sse_prior, nub, nug, nue, updateB, updateG, updateE, updatePi, n, nit, nburn, nthin, method, algo, seed)
}

sbayes_reg_eigen <- function(wy, ww, LDvalues, LDindices, b, lambda, mask, pi, gamma, vb, vg, ve, ssb_prior, ssg_prior, sse_prior, nub, nug, nue, updateB, updateG, updateE, updatePi, n, nit, nburn, nthin, method, algo, seed) {
    .Call(`_qgg_sbayes_reg_eigen`, wy, ww, LDvalues, LDindices, b, lambda, mask, pi, gamma, vb, vg, ve, ssb_prior, ssg_prior, sse_prior, nub, nug, nue, updateB, updateG, updateE, updatePi, n, nit, nburn, nthin, method, algo, seed)
}

grsbed <- function(file, n, cls, af, b) {
    .Call(`_qgg_grsbed`, file, n, cls, af, b)
}

mtgrsbed <- function(file, n, cls, af, scale, b) {
    .Call(`_qgg_mtgrsbed`, file, n, cls, af, scale, b)
}

mvrnormARMA <- function(sigma) {
    .Call(`_qgg_mvrnormARMA`, sigma)
}

rwishart <- function(df, S) {
    .Call(`_qgg_rwishart`, df, S)
}

riwishart <- function(df, S) {
    .Call(`_qgg_riwishart`, df, S)
}

mtbayes <- function(y, W, b, B, E, ssb_prior, sse_prior, models, pi, nub, nue, updateB, updateE, updatePi, nit, method) {
    .Call(`_qgg_mtbayes`, y, W, b, B, E, ssb_prior, sse_prior, models, pi, nub, nue, updateB, updateE, updatePi, nit, method)
}

mtsbayes <- function(wy, ww, yy, b, LDvalues, LDindices, B, E, ssb_prior, sse_prior, models, pi, nub, nue, updateB, updateE, updatePi, n, nit, nburn, nthin, seed, method) {
    .Call(`_qgg_mtsbayes`, wy, ww, yy, b, LDvalues, LDindices, B, E, ssb_prior, sse_prior, models, pi, nub, nue, updateB, updateE, updatePi, n, nit, nburn, nthin, seed, method)
}

mtblr <- function(wy, ww, yy, b, XXvalues, XXindices, B, E, ssb_prior, sse_prior, models, pi, nub, nue, updateB, updateE, updatePi, n, nit, nburn, nthin, seed, method) {
    .Call(`_qgg_mtblr`, wy, ww, yy, b, XXvalues, XXindices, B, E, ssb_prior, sse_prior, models, pi, nub, nue, updateB, updateE, updatePi, n, nit, nburn, nthin, seed, method)
}

solvebed <- function(file, n, cls, nit, af, b, lambda, y) {
    .Call(`_qgg_solvebed`, file, n, cls, nit, af, b, lambda, y)
}

mtsolvebed <- function(file, n, cls, nit, af, b, lambda, y) {
    .Call(`_qgg_mtsolvebed`, file, n, cls, nit, af, b, lambda, y)
}

psets <- function(msets, setstat, stat, np) {
    .Call(`_qgg_psets`, msets, setstat, stat, np)
}