Nothing
# 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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.