// This file was automatically generated by Kmisc::registerFunctions()

#include <R.h>
#include <Rinternals.h>

#include <R_ext/Rdynload.h>

SEXP melt_dataframe( SEXP x, SEXP id_ind_, SEXP val_ind_, SEXP variable_name, SEXP value_name );
SEXP melt_matrix( SEXP x );
SEXP transpose_list(SEXP x);
SEXP COMPASS_CellCounts_character(SEXP dataSEXP, SEXP combinationsSEXP);
SEXP COMPASS_CellCounts(SEXP xSEXP, SEXP combosSEXP);
SEXP model(SEXP T, SEXP I, SEXP K, SEXP M, SEXP ttt, SEXP SS, SEXP alpha_u, SEXP alpha_s, SEXP mu_u, SEXP mu_s, SEXP alpha, SEXP beta, SEXP gamma, SEXP n_s, SEXP n_u, SEXP varp_u, SEXP lambda_u,SEXP indi, SEXP d, SEXP ybar_s, SEXP ybar_u, SEXP ys2_s, SEXP ys2_u, SEXP a, SEXP b, SEXP lambda, SEXP mk, SEXP Istar, SEXP mKstar, SEXP pp, SEXP pb1, SEXP pb2, SEXP lambda_s,SEXP var_1, SEXP var_2, SEXP p_var, SEXP p_vars, SEXP var_1s, SEXP var_2s, SEXP m_s,SEXP Sigma_s, SEXP p_varu, SEXP var_1u,SEXP var_2u, SEXP m_u, SEXP Sigma_u, SEXP p_vara, SEXP var_1a, SEXP var_2a, SEXP sig_alpha1, SEXP alpha1, SEXP p_varb, SEXP var_1b, SEXP var_2b, SEXP sig_beta1, SEXP beta1, SEXP A_alphau, SEXP A_alphas, SEXP A_gm, SEXP A_mus, SEXP A_muu, SEXP A_alpha, SEXP A_beta, SEXP Tune, SEXP pgamma);
SEXP samplePuPs(SEXP alphau, SEXP alphas, SEXP gammat, SEXP T, SEXP K , SEXP nsi, SEXP nui, SEXP d, SEXP M);
SEXP updatealphas_Exp(SEXP alphast,SEXP n_s, SEXP K, SEXP I, SEXP lambda_s, SEXP gammat, SEXP var_1,SEXP var_2, SEXP p_var, SEXP ttt);
SEXP updatealphau_noPu_Exp(SEXP alphaut, SEXP n_s, SEXP n_u, SEXP I, SEXP K, SEXP lambda_u, SEXP var_p, SEXP ttt, SEXP gammat);
SEXP updategammak_noPu(SEXP n_s,SEXP n_u, SEXP gammat, SEXP I, SEXP K, SEXP SS, SEXP alphau, SEXP alphas, SEXP alpha, SEXP mk, SEXP Istar, SEXP mKstar, SEXP pp, SEXP pb1, SEXP pb2, SEXP indi);

R_CallMethodDef callMethods[]  = {
  {"C_melt_dataframe", (DL_FUNC) &melt_dataframe, 5},
  {"C_melt_matrix", (DL_FUNC) &melt_matrix, 1},
  {"C_transpose_list", (DL_FUNC) &transpose_list, 1},
  {"C_COMPASS_CellCounts_character", (DL_FUNC) &COMPASS_CellCounts_character, 2},
  {"C_COMPASS_CellCounts", (DL_FUNC) &COMPASS_CellCounts, 2},
  {"C_model", (DL_FUNC) &model, 65},
  {"C_samplePuPs", (DL_FUNC) &samplePuPs, 9},
  {"C_updatealphas_Exp", (DL_FUNC) &updatealphas_Exp, 10},
  {"C_updatealphau_noPu_Exp", (DL_FUNC) &updatealphau_noPu_Exp, 9},
  {"C_updategammak_noPu", (DL_FUNC) &updategammak_noPu, 16},
  {NULL, NULL, 0}
};

void R_init_COMPASS(DllInfo *info) {
  R_registerRoutines(info, NULL, callMethods, NULL, NULL);
  R_useDynamicSymbols(info, FALSE);
}