R/RcppExports.R

In kkdey/flashr: Factor Loading Adaptive SHrinkage in R

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

threadcheck <- function(i) {
    .Call('flashr_threadcheck', PACKAGE = 'flashr', i)
}

vec_to_mat <- function(x_) {
    .Call('flashr_vec_to_mat', PACKAGE = 'flashr', x_)
}

SquaredVec <- function(Efac) {
    .Call('flashr_SquaredVec', PACKAGE = 'flashr', Efac)
}

twopi <- function() {
    .Call('flashr_twopi', PACKAGE = 'flashr')
}

ProdVec <- function(E, F) {
    .Call('flashr_ProdVec', PACKAGE = 'flashr', E, F)
}

sumFac <- function(E) {
    .Call('flashr_sumFac', PACKAGE = 'flashr', E)
}

sebeta_const <- function(sigmae2, E) {
    .Call('flashr_sebeta_const', PACKAGE = 'flashr', sigmae2, E)
}

ashBuild3 <- function(Y, Ef, sigma2_mat) {
    .Call('flashr_ashBuild3', PACKAGE = 'flashr', Y, Ef, sigma2_mat)
}

ashBuild1 <- function(Y, Ef, sigma2) {
    .Call('flashr_ashBuild1', PACKAGE = 'flashr', Y, Ef, sigma2)
}

ashBuild2 <- function(Y, Ef, sigma2_vec, isRow) {
    .Call('flashr_ashBuild2', PACKAGE = 'flashr', Y, Ef, sigma2_vec, isRow)
}

SigmaV_Est <- function(Y, El, Ef) {
    .Call('flashr_SigmaV_Est', PACKAGE = 'flashr', Y, El, Ef)
}

SigmaV_Est_2 <- function(Y, El, Ef, El_listed, Ef_listed) {
    .Call('flashr_SigmaV_Est_2', PACKAGE = 'flashr', Y, El, Ef, El_listed, Ef_listed)
}

calcLik2 <- function(sigma2v, sigma2_true, n_threads) {
    .Call('flashr_calcLik2', PACKAGE = 'flashr', sigma2v, sigma2_true, n_threads)
}

calcLik0 <- function(sigma2v, sigma2_true) {
    .Call('flashr_calcLik0', PACKAGE = 'flashr', sigma2v, sigma2_true)
}