R/RcppExports.R

Defines functions iteration_ho_sur iteration_ho Mwgt_r iteration_sur iteration dife center_sur stdandar_sur stdandar div_fdata_c_sur div_fdata_c sum_fdata_c_sur sum_fdata_c wfun_c norm_fdata_c_sur norm_fdata_c

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

norm_fdata_c <- function(v) {
    .Call(`_rofanova_norm_fdata_c`, v)
}

norm_fdata_c_sur <- function(v) {
    .Call(`_rofanova_norm_fdata_c_sur`, v)
}

wfun_c <- function(x, k, ktun) {
    .Call(`_rofanova_wfun_c`, x, k, ktun)
}

sum_fdata_c <- function(x) {
    .Call(`_rofanova_sum_fdata_c`, x)
}

sum_fdata_c_sur <- function(x) {
    .Call(`_rofanova_sum_fdata_c_sur`, x)
}

div_fdata_c <- function(x, k) {
    .Call(`_rofanova_div_fdata_c`, x, k)
}

div_fdata_c_sur <- function(x, k) {
    .Call(`_rofanova_div_fdata_c_sur`, x, k)
}

stdandar <- function(x, mu, sig) {
    .Call(`_rofanova_stdandar`, x, mu, sig)
}

stdandar_sur <- function(x, mu, sig) {
    .Call(`_rofanova_stdandar_sur`, x, mu, sig)
}

center_sur <- function(x, mu) {
    .Call(`_rofanova_center_sur`, x, mu)
}

dife <- function(resi_new, resi) {
    .Call(`_rofanova_dife`, resi_new, resi)
}

iteration <- function(x, mu0, sig0, kpsi, ktun, tol, maxit) {
    .Call(`_rofanova_iteration`, x, mu0, sig0, kpsi, ktun, tol, maxit)
}

iteration_sur <- function(x, mu0, sig0, kpsi, ktun, tol, maxit) {
    .Call(`_rofanova_iteration_sur`, x, mu0, sig0, kpsi, ktun, tol, maxit)
}

Mwgt_r <- function(x, cc, family) {
    .Call(`_rofanova_Mwgt_r`, x, cc, family)
}

iteration_ho <- function(x, mu0, sig0, cc, family, tol, maxit) {
    .Call(`_rofanova_iteration_ho`, x, mu0, sig0, cc, family, tol, maxit)
}

iteration_ho_sur <- function(x, mu0, sig0, cc, family, tol, maxit) {
    .Call(`_rofanova_iteration_ho_sur`, x, mu0, sig0, cc, family, tol, maxit)
}

Try the rofanova package in your browser

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

rofanova documentation built on Jan. 22, 2022, 1:06 a.m.