R/RcppExports.R

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

Huber_loss <- function(Vi, Vj, Z, CT) {
    .Call('_FarmTest_Huber_loss', PACKAGE = 'FarmTest', Vi, Vj, Z, CT)
}

Huber_gradient <- function(Vi, Vj, Z, CT) {
    .Call('_FarmTest_Huber_gradient', PACKAGE = 'FarmTest', Vi, Vj, Z, CT)
}

Huber_descent <- function(Vi, Vj, Z, CT) {
    .Call('_FarmTest_Huber_descent', PACKAGE = 'FarmTest', Vi, Vj, Z, CT)
}

Robust_CV <- function(Vi, Vj) {
    .Call('_FarmTest_Robust_CV', PACKAGE = 'FarmTest', Vi, Vj)
}

Huber_loss_F <- function(X, phi, B, CT, T) {
    .Call('_FarmTest_Huber_loss_F', PACKAGE = 'FarmTest', X, phi, B, CT, T)
}

Huber_gradient_F <- function(X, phi, B, CT, T) {
    .Call('_FarmTest_Huber_gradient_F', PACKAGE = 'FarmTest', X, phi, B, CT, T)
}

Huber_descent_F <- function(X, phi, B, CT) {
    .Call('_FarmTest_Huber_descent_F', PACKAGE = 'FarmTest', X, phi, B, CT)
}

Robust_CV_F <- function(vx, phi) {
    .Call('_FarmTest_Robust_CV_F', PACKAGE = 'FarmTest', vx, phi)
}

Influence_Huber <- function(X, tau) {
    .Call('_FarmTest_Influence_Huber', PACKAGE = 'FarmTest', X, tau)
}

mu_robust <- function(X) {
    .Call('_FarmTest_mu_robust', PACKAGE = 'FarmTest', X)
}

mu_robust_noCV <- function(X, tau) {
    .Call('_FarmTest_mu_robust_noCV', PACKAGE = 'FarmTest', X, tau)
}

mu_robust_F <- function(X, phi) {
    .Call('_FarmTest_mu_robust_F', PACKAGE = 'FarmTest', X, phi)
}

mu_robust_F_noCV <- function(X, phi, tau) {
    .Call('_FarmTest_mu_robust_F_noCV', PACKAGE = 'FarmTest', X, phi, tau)
}

Cov_Huber <- function(X, mu_hat) {
    .Call('_FarmTest_Cov_Huber', PACKAGE = 'FarmTest', X, mu_hat)
}

Cov_Huber_tune <- function(X, tau) {
    .Call('_FarmTest_Cov_Huber_tune', PACKAGE = 'FarmTest', X, tau)
}

Cov_Huber_noCV <- function(X, mu_hat, tau) {
    .Call('_FarmTest_Cov_Huber_noCV', PACKAGE = 'FarmTest', X, mu_hat, tau)
}

Eigen_Decomp <- function(M) {
    .Call('_FarmTest_Eigen_Decomp', PACKAGE = 'FarmTest', M)
}

Loading_Sample <- function(K, M) {
    .Call('_FarmTest_Loading_Sample', PACKAGE = 'FarmTest', K, M)
}

Loading_Robust <- function(K, M) {
    .Call('_FarmTest_Loading_Robust', PACKAGE = 'FarmTest', K, M)
}
kbose28/farmtest documentation built on May 29, 2019, 3:01 a.m.