R/RcppExports.R

In deruncie/GridLMM: Efficient Mixed Models for GWAS with multiple Random Effects

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

svd_c <- function(X) {
    .Call('_GridLMM_svd_c', PACKAGE = 'GridLMM', X)
}

chol_c <- function(X) {
    .Call('_GridLMM_chol_c', PACKAGE = 'GridLMM', X)
}

premultiply_list_of_matrices <- function(Qt_, X_list) {
    .Call('_GridLMM_premultiply_list_of_matrices', PACKAGE = 'GridLMM', Qt_, X_list)
}

chol_update_L <- function(L, X, weights) {
    .Call('_GridLMM_chol_update_L', PACKAGE = 'GridLMM', L, X, weights)
}

chol_update <- function(L, X, sign) {
    .Call('_GridLMM_chol_update', PACKAGE = 'GridLMM', L, X, sign)
}

chol_dropRows <- function(L, start_row, num_rows) {
    .Call('_GridLMM_chol_dropRows', PACKAGE = 'GridLMM', L, start_row, num_rows)
}

crossprod_cholR <- function(chol_R, X) {
    .Call('_GridLMM_crossprod_cholR', PACKAGE = 'GridLMM', chol_R, X)
}

F_hats <- function(beta_hats, RSSs, V_star_L, n, b, m) {
    .Call('_GridLMM_F_hats', PACKAGE = 'GridLMM', beta_hats, RSSs, V_star_L, n, b, m)
}

log_det_of_XtX <- function(X_cov, X_tests, X_indices) {
    .Call('_GridLMM_log_det_of_XtX', PACKAGE = 'GridLMM', X_cov, X_tests, X_indices)
}

GridLMM_SS_matrix <- function(Y, chol_Vi_R_, X_cov, X_list_, X_indices, inv_prior_X) {
    .Call('_GridLMM_GridLMM_SS_matrix', PACKAGE = 'GridLMM', Y, chol_Vi_R_, X_cov, X_list_, X_indices, inv_prior_X)
}

build_downdate_Xs <- function(RE_index, X_list_, proximal_markers, active_X_list) {
    .Call('_GridLMM_build_downdate_Xs', PACKAGE = 'GridLMM', RE_index, X_list_, proximal_markers, active_X_list)
}

GridLMM_SS_downdate_matrix <- function(Y, chol_Vi_R, X_cov, X_list_, X_indices, downdate_Xs, downdate_weights, inv_prior_X) {
    .Call('_GridLMM_GridLMM_SS_downdate_matrix', PACKAGE = 'GridLMM', Y, chol_Vi_R, X_cov, X_list_, X_indices, downdate_Xs, downdate_weights, inv_prior_X)
}

Calculate_qt_LASSO <- function(X, beta, lambdas) {
    .Call('_GridLMM_Calculate_qt_LASSO', PACKAGE = 'GridLMM', X, beta, lambdas)
}

chol_update2 <- function(L, X, sign) {
    .Call('_GridLMM_chol_update2', PACKAGE = 'GridLMM', L, X, sign)
}

chol_update2s <- function(L, X, sign) {
    .Call('_GridLMM_chol_update2s', PACKAGE = 'GridLMM', L, X, sign)
}