// Generated by using Rcpp::compileAttributes() -> do not edit by hand // Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393 #include using namespace Rcpp; #ifdef RCPP_USE_GLOBAL_ROSTREAM Rcpp::Rostream& Rcpp::Rcout = Rcpp::Rcpp_cout_get(); Rcpp::Rostream& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get(); #endif // calculate_transition_probabilities List calculate_transition_probabilities(IntegerVector x, int lx); RcppExport SEXP _RTransferEntropy_calculate_transition_probabilities(SEXP xSEXP, SEXP lxSEXP) { BEGIN_RCPP Rcpp::RObject rcpp_result_gen; Rcpp::RNGScope rcpp_rngScope_gen; Rcpp::traits::input_parameter< IntegerVector >::type x(xSEXP); Rcpp::traits::input_parameter< int >::type lx(lxSEXP); rcpp_result_gen = Rcpp::wrap(calculate_transition_probabilities(x, lx)); return rcpp_result_gen; END_RCPP } // cluster_gen Rcpp::NumericVector cluster_gen(Rcpp::IntegerVector x, int lx, Rcpp::Nullable<:integervector> y, Rcpp::Nullable ly, bool prog); RcppExport SEXP _RTransferEntropy_cluster_gen(SEXP xSEXP, SEXP lxSEXP, SEXP ySEXP, SEXP lySEXP, SEXP progSEXP) { BEGIN_RCPP Rcpp::RObject rcpp_result_gen; Rcpp::RNGScope rcpp_rngScope_gen; Rcpp::traits::input_parameter< Rcpp::IntegerVector >::type x(xSEXP); Rcpp::traits::input_parameter< int >::type lx(lxSEXP); Rcpp::traits::input_parameter< Rcpp::Nullable<:integervector> >::type y(ySEXP); Rcpp::traits::input_parameter< Rcpp::Nullable >::type ly(lySEXP); Rcpp::traits::input_parameter< bool >::type prog(progSEXP); rcpp_result_gen = Rcpp::wrap(cluster_gen(x, lx, y, ly, prog)); return rcpp_result_gen; END_RCPP } // freq_table Rcpp::NumericVector freq_table(std::vector x); RcppExport SEXP _RTransferEntropy_freq_table(SEXP xSEXP) { BEGIN_RCPP Rcpp::RObject rcpp_result_gen; Rcpp::RNGScope rcpp_rngScope_gen; Rcpp::traits::input_parameter< std::vector >::type x(xSEXP); rcpp_result_gen = Rcpp::wrap(freq_table(x)); return rcpp_result_gen; END_RCPP } static const R_CallMethodDef CallEntries[] = { {"_RTransferEntropy_calculate_transition_probabilities", (DL_FUNC) &_RTransferEntropy_calculate_transition_probabilities, 2}, {"_RTransferEntropy_cluster_gen", (DL_FUNC) &_RTransferEntropy_cluster_gen, 5}, {"_RTransferEntropy_freq_table", (DL_FUNC) &_RTransferEntropy_freq_table, 1}, {NULL, NULL, 0} }; RcppExport void R_init_RTransferEntropy(DllInfo *dll) { R_registerRoutines(dll, NULL, CallEntries, NULL, NULL); R_useDynamicSymbols(dll, FALSE); }