R/RcppExports.R

In keshav-motwani/MultiLORS:

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

compute_gradient_Beta <- function(X_list, L_list, q, indices_list, XtX_list, XtY_list, Beta_old) {
    .Call(`_MultiLORS_compute_gradient_Beta`, X_list, L_list, q, indices_list, XtX_list, XtY_list, Beta_old)
}

update_Beta <- function(Y_list, X_list, L_list, q, indices_list, XtX_list, XtY_list, Beta_old, lambda, s_Beta, s) {
    .Call(`_MultiLORS_update_Beta`, Y_list, X_list, L_list, q, indices_list, XtX_list, XtY_list, Beta_old, lambda, s_Beta, s)
}

compute_s_Beta <- function(XtX_list, p, q, dataset_indices_list) {
    .Call(`_MultiLORS_compute_s_Beta`, XtX_list, p, q, dataset_indices_list)
}

OLS <- function(XtX, X, Y) {
    .Call(`_MultiLORS_OLS`, XtX, X, Y)
}

evaluate_g <- function(Y_list, X_list, L_list, indices_list, Beta) {
    .Call(`_MultiLORS_evaluate_g`, Y_list, X_list, L_list, indices_list, Beta)
}

compute_error <- function(Y_list, X_list, indices_list, Beta) {
    .Call(`_MultiLORS_compute_error`, Y_list, X_list, indices_list, Beta)
}

l1_penalty <- function(Beta, lambda) {
    .Call(`_MultiLORS_l1_penalty`, Beta, lambda)
}

evaluate_objective <- function(Y_list, X_list, L_list, indices_list, Beta, lambda, nuclear_norm_penalty) {
    .Call(`_MultiLORS_evaluate_objective`, Y_list, X_list, L_list, indices_list, Beta, lambda, nuclear_norm_penalty)
}

l1_prox <- function(matrix, lambda) {
    .Call(`_MultiLORS_l1_prox`, matrix, lambda)
}

nuclear_prox <- function(matrix, gamma) {
    .Call(`_MultiLORS_nuclear_prox`, matrix, gamma)
}