R/RcppExports.R

Defines functions cpppar_trigamma cpppar_digamma cpppar_lgamma cpppar_log_a_exp cpppar_log cpppar_exp cpp_get_fe_gnl cpp_get_fe_2 cpp_unclassFactor cpp_table cpp_tapply_vsum cpp_tapply_sum cpp_partialDerivative_other cpp_log_a_exp cpp_lgamma update_deriv_single cpp_derivconv_seq_2 cpp_derivconv_acc_2 cpp_derivconv_acc_gnl cpp_derivconv_seq_gnl cpp_conv_seq_gau_2 cpp_conv_acc_gau_2 cpp_fixed_cost_gaussian cpp_conv_seq_poi_2 cpp_conv_acc_poi_2 get_n_cells cpp_conv_seq_gnl cpp_conv_acc_gnl update_mu_single_cluster compute_cluster_coef_r

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

compute_cluster_coef_r <- function(family, nb_coef, theta, diffMax_NR, r_mu, r_lhs, r_sum_y, r_dum, r_obsCluster, r_table, r_cumtable, nbThreads) {
    .Call(`_FENmlm_compute_cluster_coef_r`, family, nb_coef, theta, diffMax_NR, r_mu, r_lhs, r_sum_y, r_dum, r_obsCluster, r_table, r_cumtable, nbThreads)
}

update_mu_single_cluster <- function(family, nb_cluster, theta, diffMax_NR, mu_in, lhs, sum_y, dum, obsCluster, table, cumtable, nbThreads) {
    .Call(`_FENmlm_update_mu_single_cluster`, family, nb_cluster, theta, diffMax_NR, mu_in, lhs, sum_y, dum, obsCluster, table, cumtable, nbThreads)
}

cpp_conv_acc_gnl <- function(family, iterMax, diffMax, diffMax_NR, theta, nb_cluster_all, lhs, mu_init, dum_vector, tableCluster_vector, sum_y_vector, cumtable_vector, obsCluster_vector, nbThreads) {
    .Call(`_FENmlm_cpp_conv_acc_gnl`, family, iterMax, diffMax, diffMax_NR, theta, nb_cluster_all, lhs, mu_init, dum_vector, tableCluster_vector, sum_y_vector, cumtable_vector, obsCluster_vector, nbThreads)
}

cpp_conv_seq_gnl <- function(family, iterMax, diffMax, diffMax_NR, theta, nb_cluster_all, lhs, mu_init, dum_vector, tableCluster_vector, sum_y_vector, cumtable_vector, obsCluster_vector, nbThreads) {
    .Call(`_FENmlm_cpp_conv_seq_gnl`, family, iterMax, diffMax, diffMax_NR, theta, nb_cluster_all, lhs, mu_init, dum_vector, tableCluster_vector, sum_y_vector, cumtable_vector, obsCluster_vector, nbThreads)
}

get_n_cells <- function(index_i, index_j) {
    .Call(`_FENmlm_get_n_cells`, index_i, index_j)
}

cpp_conv_acc_poi_2 <- function(n_i, n_j, n_cells, index_i, index_j, dum_vector, sum_y_vector, iterMax, diffMax, exp_mu_in, order) {
    .Call(`_FENmlm_cpp_conv_acc_poi_2`, n_i, n_j, n_cells, index_i, index_j, dum_vector, sum_y_vector, iterMax, diffMax, exp_mu_in, order)
}

cpp_conv_seq_poi_2 <- function(n_i, n_j, n_cells, index_i, index_j, dum_vector, sum_y_vector, iterMax, diffMax, exp_mu_in, order) {
    .Call(`_FENmlm_cpp_conv_seq_poi_2`, n_i, n_j, n_cells, index_i, index_j, dum_vector, sum_y_vector, iterMax, diffMax, exp_mu_in, order)
}

cpp_fixed_cost_gaussian <- function(n_i, n_cells, index_i, index_j, order, invTableCluster_vector, dum_vector) {
    .Call(`_FENmlm_cpp_fixed_cost_gaussian`, n_i, n_cells, index_i, index_j, order, invTableCluster_vector, dum_vector)
}

cpp_conv_acc_gau_2 <- function(n_i, n_j, n_cells, r_mat_row, r_mat_col, r_mat_value_Ab, r_mat_value_Ba, dum_vector, lhs, invTableCluster_vector, iterMax, diffMax, mu_in) {
    .Call(`_FENmlm_cpp_conv_acc_gau_2`, n_i, n_j, n_cells, r_mat_row, r_mat_col, r_mat_value_Ab, r_mat_value_Ba, dum_vector, lhs, invTableCluster_vector, iterMax, diffMax, mu_in)
}

cpp_conv_seq_gau_2 <- function(n_i, n_j, n_cells, r_mat_row, r_mat_col, r_mat_value_Ab, r_mat_value_Ba, dum_vector, lhs, invTableCluster_vector, iterMax, diffMax, mu_in) {
    .Call(`_FENmlm_cpp_conv_seq_gau_2`, n_i, n_j, n_cells, r_mat_row, r_mat_col, r_mat_value_Ab, r_mat_value_Ba, dum_vector, lhs, invTableCluster_vector, iterMax, diffMax, mu_in)
}

cpp_derivconv_seq_gnl <- function(iterMax, diffMax, n_vars, nb_cluster_all, ll_d2, jacob_vector, deriv_init_vector, dum_vector) {
    .Call(`_FENmlm_cpp_derivconv_seq_gnl`, iterMax, diffMax, n_vars, nb_cluster_all, ll_d2, jacob_vector, deriv_init_vector, dum_vector)
}

cpp_derivconv_acc_gnl <- function(iterMax, diffMax, n_vars, nb_cluster_all, ll_d2, jacob_vector, deriv_init_vector, dum_vector) {
    .Call(`_FENmlm_cpp_derivconv_acc_gnl`, iterMax, diffMax, n_vars, nb_cluster_all, ll_d2, jacob_vector, deriv_init_vector, dum_vector)
}

cpp_derivconv_acc_2 <- function(iterMax, diffMax, n_vars, nb_cluster_all, n_cells, index_i, index_j, ll_d2, order, jacob_vector, deriv_init_vector, dum_vector) {
    .Call(`_FENmlm_cpp_derivconv_acc_2`, iterMax, diffMax, n_vars, nb_cluster_all, n_cells, index_i, index_j, ll_d2, order, jacob_vector, deriv_init_vector, dum_vector)
}

cpp_derivconv_seq_2 <- function(iterMax, diffMax, n_vars, nb_cluster_all, n_cells, index_i, index_j, order, ll_d2, jacob_vector, deriv_init_vector, dum_vector) {
    .Call(`_FENmlm_cpp_derivconv_seq_2`, iterMax, diffMax, n_vars, nb_cluster_all, n_cells, index_i, index_j, order, ll_d2, jacob_vector, deriv_init_vector, dum_vector)
}

update_deriv_single <- function(n_vars, nb_coef, r_ll_d2, r_jacob_vector, r_dum_vector) {
    .Call(`_FENmlm_update_deriv_single`, n_vars, nb_coef, r_ll_d2, r_jacob_vector, r_dum_vector)
}

cpp_lgamma <- function(x) {
    .Call(`_FENmlm_cpp_lgamma`, x)
}

cpp_log_a_exp <- function(a, mu, exp_mu) {
    .Call(`_FENmlm_cpp_log_a_exp`, a, mu, exp_mu)
}

cpp_partialDerivative_other <- function(iterMax, Q, N, epsDeriv, ll_d2, dx_dother, init, dumMat, nbCluster) {
    .Call(`_FENmlm_cpp_partialDerivative_other`, iterMax, Q, N, epsDeriv, ll_d2, dx_dother, init, dumMat, nbCluster)
}

cpp_tapply_sum <- function(Q, x, dum) {
    .Call(`_FENmlm_cpp_tapply_sum`, Q, x, dum)
}

cpp_tapply_vsum <- function(Q, x, dum) {
    .Call(`_FENmlm_cpp_tapply_vsum`, Q, x, dum)
}

cpp_table <- function(Q, dum) {
    .Call(`_FENmlm_cpp_table`, Q, dum)
}

cpp_unclassFactor <- function(x) {
    .Call(`_FENmlm_cpp_unclassFactor`, x)
}

cpp_get_fe_2 <- function(clusterSize, i_sorted_index_j, i_sorted_sumFE, j_sorted_index_i, j_sorted_sumFE, r_cumtable_i, r_cumtable_j) {
    .Call(`_FENmlm_cpp_get_fe_2`, clusterSize, i_sorted_index_j, i_sorted_sumFE, j_sorted_index_i, j_sorted_sumFE, r_cumtable_i, r_cumtable_j)
}

cpp_get_fe_gnl <- function(Q, N, S, dumMat, nbCluster, obsCluster) {
    .Call(`_FENmlm_cpp_get_fe_gnl`, Q, N, S, dumMat, nbCluster, obsCluster)
}

cpppar_exp <- function(x, nthreads) {
    .Call(`_FENmlm_cpppar_exp`, x, nthreads)
}

cpppar_log <- function(x, nthreads) {
    .Call(`_FENmlm_cpppar_log`, x, nthreads)
}

cpppar_log_a_exp <- function(nthreads, a, mu, exp_mu) {
    .Call(`_FENmlm_cpppar_log_a_exp`, nthreads, a, mu, exp_mu)
}

cpppar_lgamma <- function(x, nthreads) {
    .Call(`_FENmlm_cpppar_lgamma`, x, nthreads)
}

cpppar_digamma <- function(x, nthreads) {
    .Call(`_FENmlm_cpppar_digamma`, x, nthreads)
}

cpppar_trigamma <- function(x, nthreads) {
    .Call(`_FENmlm_cpppar_trigamma`, x, nthreads)
}

Try the FENmlm package in your browser

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

FENmlm documentation built on Aug. 22, 2023, 5:11 p.m.