R/RcppExports.R

In ypan1988/codco: Design tools for generalised linear mixed models in R

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

obj_fun <- function(A, U2) {
    .Call(`_codco_obj_fun`, A, U2)
}

c_obj_fun <- function(M, C) {
    .Call(`_codco_c_obj_fun`, M, C)
}

gen_m <- function(X, A) {
    .Call(`_codco_gen_m`, X, A)
}

gen_u <- function(M, X, C) {
    .Call(`_codco_gen_u`, M, X, C)
}

remove_one <- function(A, i, u) {
    .Call(`_codco_remove_one`, A, i, u)
}

remove_one_mat <- function(A, i) {
    .Call(`_codco_remove_one_mat`, A, i)
}

add_one <- function(A, sigma_jj, f, u) {
    .Call(`_codco_add_one`, A, sigma_jj, f, u)
}

add_one_mat <- function(A, sigma_jj, f) {
    .Call(`_codco_add_one_mat`, A, sigma_jj, f)
}

ChooseSwap <- function(idx_in, A, sig, u, out2, out3) {
    .Call(`_codco_ChooseSwap`, idx_in, A, sig, u, out2, out3)
}

Grad <- function(idx_in, A, sig, u, tol = 1e-9, trace = TRUE) {
    .Call(`_codco_Grad`, idx_in, A, sig, u, tol, trace)
}

ChooseSwapRobust <- function(nlist, idx_in, A_list, sig_list, u_list, weights, out2, out3) {
    .Call(`_codco_ChooseSwapRobust`, nlist, idx_in, A_list, sig_list, u_list, weights, out2, out3)
}

GradRobust <- function(nlist, idx_in, A_list, M_list, C_list, X_list, sig_list, u_list, weights, tol = 1e-9, trace = TRUE) {
    .Call(`_codco_GradRobust`, nlist, idx_in, A_list, M_list, C_list, X_list, sig_list, u_list, weights, tol, trace)
}

uvec_minus <- function(v, rm_idx) {
    .Call(`_codco_uvec_minus`, v, rm_idx)
}

GradRobustStep <- function(idx_in, C_list, X_list, sig_list, weights, nfix = 0L, rd_mode = 1L) {
    .Call(`_codco_GradRobustStep`, idx_in, C_list, X_list, sig_list, weights, nfix, rd_mode)
}

GradRobustAlg1 <- function(idx_in, C_list, X_list, sig_list, weights, nfix = 0L, rd_mode = 1L) {
    .Call(`_codco_GradRobustAlg1`, idx_in, C_list, X_list, sig_list, weights, nfix, rd_mode)
}