R/RcppExports.R

In sommer: Solving Mixed Model Equations in R

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

currentDateTime <- function() {
    .Call(`_sommer_currentDateTime`)
}

seqCpp <- function(a, b) {
    .Call(`_sommer_seqCpp`, a, b)
}

mat_to_vecCpp <- function(x, x2) {
    .Call(`_sommer_mat_to_vecCpp`, x, x2)
}

vec_to_matCpp <- function(x, x2) {
    .Call(`_sommer_vec_to_matCpp`, x, x2)
}

vec_to_cubeCpp <- function(x, g) {
    .Call(`_sommer_vec_to_cubeCpp`, x, g)
}

varCols <- function(x) {
    .Call(`_sommer_varCols`, x)
}

scaleCpp <- function(x) {
    .Call(`_sommer_scaleCpp`, x)
}

makeFull <- function(X) {
    .Call(`_sommer_makeFull`, X)
}

isIdentity_mat <- function(x) {
    .Call(`_sommer_isIdentity_mat`, x)
}

isIdentity_spmat <- function(x) {
    .Call(`_sommer_isIdentity_spmat`, x)
}

isDiagonal_mat <- function(x) {
    .Call(`_sommer_isDiagonal_mat`, x)
}

isDiagonal_spmat <- function(x) {
    .Call(`_sommer_isDiagonal_spmat`, x)
}

amat <- function(Xo, vanraden, minMAF) {
    .Call(`_sommer_amat`, Xo, vanraden, minMAF)
}

dmat <- function(Xo, nishio, minMAF) {
    .Call(`_sommer_dmat`, Xo, nishio, minMAF)
}

emat <- function(X1, X2) {
    .Call(`_sommer_emat`, X1, X2)
}

hmat <- function(A, G22, index, tolparinv, tau, omega) {
    .Call(`_sommer_hmat`, A, G22, index, tolparinv, tau, omega)
}

scorecalc <- function(Mimv, Ymv, Zmv, Xmv, Vinv, nt, minMAF) {
    .Call(`_sommer_scorecalc`, Mimv, Ymv, Zmv, Xmv, Vinv, nt, minMAF)
}

gwasForLoop <- function(M, Y, Z, X, Vinv, minMAF, display_progress = TRUE) {
    .Call(`_sommer_gwasForLoop`, M, Y, Z, X, Vinv, minMAF, display_progress)
}

MNR <- function(Y, X, Gx, Z, K, R, Ge, GeI, W, isInvW, iters, tolpar, tolparinv, ai, pev, verbose, retscaled, stepweight, emweight) {
    .Call(`_sommer_MNR`, Y, X, Gx, Z, K, R, Ge, GeI, W, isInvW, iters, tolpar, tolparinv, ai, pev, verbose, retscaled, stepweight, emweight)
}

convertSparse <- function(mat) {
    .Call(`_sommer_convertSparse`, mat)
}

mat_to_vecCpp2 <- function(x, x2) {
    .Call(`_sommer_mat_to_vecCpp2`, x, x2)
}

nearPDcpp <- function(X0, maxit, eig_tol, conv_tol) {
    .Call(`_sommer_nearPDcpp`, X0, maxit, eig_tol, conv_tol)
}

ai_mme_sp <- function(X, ZI, Zind, AiI, y, SI, partitionsS, H, useH, nIters, tolParConvLL, tolParConvNorm, tolParInv, thetaI, thetaCI, thetaF, addScaleParam, weightEmInf, weightInf, verbose) {
    .Call(`_sommer_ai_mme_sp`, X, ZI, Zind, AiI, y, SI, partitionsS, H, useH, nIters, tolParConvLL, tolParConvNorm, tolParInv, thetaI, thetaCI, thetaF, addScaleParam, weightEmInf, weightInf, verbose)
}