Nothing
# 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)
}
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.