R/RcppExports.R

In secure: Sequential Co-Sparse Factor Regression

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

nzcount <- function(x) {
    .Call('_secure_nzcount', PACKAGE = 'secure', x)
}

wpow <- function(x, gamma0) {
    .Call('_secure_wpow', PACKAGE = 'secure', x, gamma0)
}

softThres <- function(x, lambda) {
    .Call('_secure_softThres', PACKAGE = 'secure', x, lambda)
}

bregpcdenet_Rcpp <- function(XY, XX, A, B, Lambda1, Lambda2, Mu, Nu, Beta0, control) {
    .Call('_secure_bregpcdenet_Rcpp', PACKAGE = 'secure', XY, XX, A, B, Lambda1, Lambda2, Mu, Nu, Beta0, control)
}

bregpcdenetdiag_Rcpp <- function(XY, XX, A, B, Lambda1, Lambda2, Mu, Nu, Beta0, control) {
    .Call('_secure_bregpcdenetdiag_Rcpp', PACKAGE = 'secure', XY, XX, A, B, Lambda1, Lambda2, Mu, Nu, Beta0, control)
}

secure_SURR_Rcpp <- function(X, Y, Au, Av, bu, bv, uk, vk, dk, nlambda, control) {
    .Call('_secure_secure_SURR_Rcpp', PACKAGE = 'secure', X, Y, Au, Av, bu, bv, uk, vk, dk, nlambda, control)
}

secure_SURR_Rcpp_ortho <- function(X, Y, Au, Av, bu, bv, uk, vk, dk, nlambda, control) {
    .Call('_secure_secure_SURR_Rcpp_ortho', PACKAGE = 'secure', X, Y, Au, Av, bu, bv, uk, vk, dk, nlambda, control)
}

secure_SURR_miss_Rcpp <- function(X, Y, naInd, Au, Av, bu, bv, uk, vk, dk, nlambda, control) {
    .Call('_secure_secure_SURR_miss_Rcpp', PACKAGE = 'secure', X, Y, naInd, Au, Av, bu, bv, uk, vk, dk, nlambda, control)
}