src/COMPASS_init.c
e7fb6421
 // This file was automatically generated by Kmisc::registerFunctions()
 
 #include <R.h>
 #include <Rinternals.h>
 
 #include <R_ext/Rdynload.h>
 
060940bf
 SEXP melt_dataframe(SEXP x,
                     SEXP id_ind_,
                     SEXP val_ind_,
                     SEXP variable_name,
                     SEXP value_name);
 SEXP melt_matrix(SEXP x);
e7fb6421
 SEXP transpose_list(SEXP x);
 SEXP COMPASS_CellCounts_character(SEXP dataSEXP, SEXP combinationsSEXP);
 SEXP COMPASS_CellCounts(SEXP xSEXP, SEXP combosSEXP);
060940bf
 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);
e7fb6421
 
060940bf
 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_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}};
e7fb6421
 
060940bf
 void R_init_COMPASS(DllInfo* info) {
e7fb6421
   R_registerRoutines(info, NULL, callMethods, NULL, NULL);
   R_useDynamicSymbols(info, FALSE);
 }