R/RcppExports.R

In NAM: Nested Association Mapping

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

emBA <- function(y, gen, df = 10, R2 = 0.5) {
    .Call(`_NAM_emBA`, y, gen, df, R2)
}

emBB <- function(y, gen, df = 10, R2 = 0.5, Pi = 0.75) {
    .Call(`_NAM_emBB`, y, gen, df, R2, Pi)
}

emBC <- function(y, gen, df = 10, R2 = 0.5, Pi = 0.75) {
    .Call(`_NAM_emBC`, y, gen, df, R2, Pi)
}

emBD <- function(y, gen, df = 10, R2 = 0.5) {
    .Call(`_NAM_emBD`, y, gen, df, R2)
}

emRR <- function(y, gen, df = 10, R2 = 0.5) {
    .Call(`_NAM_emRR`, y, gen, df, R2)
}

emBL <- function(y, gen, R2 = 0.5, alpha = 0.02) {
    .Call(`_NAM_emBL`, y, gen, R2, alpha)
}

emDE <- function(y, gen, R2 = 0.5) {
    .Call(`_NAM_emDE`, y, gen, R2)
}

emEN <- function(y, gen, R2 = 0.5, alpha = 0.02) {
    .Call(`_NAM_emEN`, y, gen, R2, alpha)
}

emML <- function(y, gen, D = NULL) {
    .Call(`_NAM_emML`, y, gen, D)
}

emMX <- function(y, gen, R2 = 0.5) {
    .Call(`_NAM_emMX`, y, gen, R2)
}

calcSize <- function(col, fam) {
    .Call(`_NAM_calcSize`, col, fam)
}

funI <- function(col, fam, finsiz, f) {
    .Call(`_NAM_funI`, col, fam, finsiz, f)
}

funX <- function(col, finsiz) {
    .Call(`_NAM_funX`, col, finsiz)
}

gs <- function(C, g, r, N) {
    invisible(.Call(`_NAM_gs`, C, g, r, N))
}

inputRow <- function(x, exp, n) {
    .Call(`_NAM_inputRow`, x, exp, n)
}

KMUP <- function(X, b, d, xx, e, L, Ve, pi) {
    .Call(`_NAM_KMUP`, X, b, d, xx, e, L, Ve, pi)
}

KMUP2 <- function(X, Use, b, d, xx, E, L, Ve, pi) {
    .Call(`_NAM_KMUP2`, X, Use, b, d, xx, E, L, Ve, pi)
}

SAMP <- function(C, g, r, N, Ve) {
    invisible(.Call(`_NAM_SAMP`, C, g, r, N, Ve))
}

SAMP2 <- function(X, g, y, xx, E, L, N, Ve) {
    invisible(.Call(`_NAM_SAMP2`, X, g, y, xx, E, L, N, Ve))
}

timesMatrix <- function(ma1, h, ma2, rows, cols) {
    .Call(`_NAM_timesMatrix`, ma1, h, ma2, rows, cols)
}

timesVec <- function(aa, h, bb, q) {
    .Call(`_NAM_timesVec`, aa, h, bb, q)
}

CNT <- function(X) {
    .Call(`_NAM_CNT`, X)
}

MSX <- function(X) {
    .Call(`_NAM_MSX`, X)
}

IMP <- function(X) {
    .Call(`_NAM_IMP`, X)
}

NOR <- function(y, X, cxx, xx, maxit = 50L, tol = 10e-6) {
    .Call(`_NAM_NOR`, y, X, cxx, xx, maxit, tol)
}

GAU <- function(X) {
    .Call(`_NAM_GAU`, X)
}

GRM <- function(X, Code012 = FALSE) {
    .Call(`_NAM_GRM`, X, Code012)
}

SPC <- function(y, blk, row, col, rN = 3, cN = 1) {
    .Call(`_NAM_SPC`, y, blk, row, col, rN, cN)
}

SPM <- function(blk, row, col, rN = 3, cN = 1) {
    .Call(`_NAM_SPM`, blk, row, col, rN, cN)
}

BRR2 <- function(y, X1, X2, it = 1500, bi = 500, df = 5, R2 = 0.5) {
    .Call(`_NAM_BRR2`, y, X1, X2, it, bi, df, R2)
}

emGWA <- function(y, gen) {
    .Call(`_NAM_emGWA`, y, gen)
}

BCpi <- function(y, X, it = 3000, bi = 500, df = 5, R2 = 0.5) {
    .Call(`_NAM_BCpi`, y, X, it, bi, df, R2)
}

emML2 <- function(y, X1, X2, D1 = NULL, D2 = NULL) {
    .Call(`_NAM_emML2`, y, X1, X2, D1, D2)
}

mrr <- function(Y, X) {
    .Call(`_NAM_mrr`, Y, X)
}

mrrV2 <- function(Y, X) {
    .Call(`_NAM_mrrV2`, Y, X)
}

mrr2X <- function(Y, X1, X2) {
    .Call(`_NAM_mrr2X`, Y, X1, X2)
}

mkr <- function(Y, K) {
    .Call(`_NAM_mkr`, Y, K)
}

mkr2X <- function(Y, K1, K2) {
    .Call(`_NAM_mkr2X`, Y, K1, K2)
}

mrrFast <- function(Y, X) {
    .Call(`_NAM_mrrFast`, Y, X)
}