R/RcppExports.R

Defines functions kron_RcppArma surr_fit_Rcpp srrr_Rcpp MGlasso_Rcpp procrustes_RCpp penreg_Rcpp_XY penreg_Rcpp lasso_shooting

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

lasso_shooting <- function(xtx, xty, lambda, epsilon = 1e-6, max_iter = 1e5L) {
    .Call('_rrpack_lasso_shooting', PACKAGE = 'rrpack', xtx, xty, lambda, epsilon, max_iter)
}

penreg_Rcpp <- function(Y, X, lambda, beta0, control) {
    .Call('_rrpack_penreg_Rcpp', PACKAGE = 'rrpack', Y, X, lambda, beta0, control)
}

penreg_Rcpp_XY <- function(XY, XX, lambda, beta0, control) {
    .Call('_rrpack_penreg_Rcpp_XY', PACKAGE = 'rrpack', XY, XX, lambda, beta0, control)
}

procrustes_RCpp <- function(XY, XX, D, rho2, U, control) {
    .Call('_rrpack_procrustes_RCpp', PACKAGE = 'rrpack', XY, XX, D, rho2, U, control)
}

MGlasso_Rcpp <- function(Y, X, lam, B0, conv, maxiter) {
    .Call('_rrpack_MGlasso_Rcpp', PACKAGE = 'rrpack', Y, X, lam, B0, conv, maxiter)
}

srrr_Rcpp <- function(Y, X, method, A0, V0, nrank, lambda, conv, maxiter, inner_conv, inner_iter, WA) {
    .Call('_rrpack_srrr_Rcpp', PACKAGE = 'rrpack', Y, X, method, A0, V0, nrank, lambda, conv, maxiter, inner_conv, inner_iter, WA)
}

surr_fit_Rcpp <- function(Y, X, lambda, U0, V0, WU, WV, Xtran, control) {
    .Call('_rrpack_surr_fit_Rcpp', PACKAGE = 'rrpack', Y, X, lambda, U0, V0, WU, WV, Xtran, control)
}

kron_RcppArma <- function(A, B) {
    .Call('_rrpack_kron_RcppArma', PACKAGE = 'rrpack', A, B)
}

Try the rrpack package in your browser

Any scripts or data that you put into this service are public.

rrpack documentation built on June 16, 2022, 9:05 a.m.