R/RcppExports.R

In ltsspca: Sparse Principal Component Based on Least Trimmed Squares

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

findpcs <- function(x, B, mu, h, s, N1, N2, Npc, tol, fixed) {
    .Call(`_ltsspca_findpcs`, x, B, mu, h, s, N1, N2, Npc, tol, fixed)
}

findpcs2 <- function(x, B, mu, h, s, N1, N2, Npc, tol, fixed) {
    .Call(`_ltsspca_findpcs2`, x, B, mu, h, s, N1, N2, Npc, tol, fixed)
}

findpcs0 <- function(x, B, mu, Npc, tol) {
    .Call(`_ltsspca_findpcs0`, x, B, mu, Npc, tol)
}

findsparsePC <- function(x, b, mu, alpha, l, N2bis, Npc, tol) {
    .Call(`_ltsspca_findsparsePC`, x, b, mu, alpha, l, N2bis, Npc, tol)
}