Skip to content

Commit

Permalink
included bsvars dependencieds in cpp code #4
Browse files Browse the repository at this point in the history
  • Loading branch information
@donotdespair
donotdespair committed Jan 24, 2024
1 parent a392225 commit bd71d3b
Show file tree
Hide file tree
Showing 9 changed files with 112 additions and 638 deletions.
1 change: 1 addition & 0 deletions .gitignore
View file
Original file line number Diff line number Diff line change
Expand Up @@ -55,3 +55,4 @@ rsconnect/
.Rdata
.DS_Store
.quarto
*.so
2 changes: 1 addition & 1 deletion DESCRIPTION
View file
Original file line number Diff line number Diff line change
Expand Up @@ -14,7 +14,7 @@ Imports:
Rcpp (>= 1.0.12),
RcppArmadillo,
RcppProgress
LinkingTo: Rcpp, RcppArmadillo, RcppProgress
LinkingTo: bsvars, Rcpp, RcppArmadillo, RcppProgress
RoxygenNote: 7.3.0
Depends:
R (>= 2.10)
Expand Down
102 changes: 0 additions & 102 deletions inst/include/bsvarSIGNs_RcppExports.h
View file
Original file line number Diff line number Diff line change
Expand Up @@ -25,108 +25,6 @@ namespace bsvarSIGNs {
}
}

inline arma::mat orthogonal_complement_matrix_TW(const arma::mat& x) {
typedef SEXP(*Ptr_orthogonal_complement_matrix_TW)(SEXP);
static Ptr_orthogonal_complement_matrix_TW p_orthogonal_complement_matrix_TW = NULL;
if (p_orthogonal_complement_matrix_TW == NULL) {
validateSignature("arma::mat(*orthogonal_complement_matrix_TW)(const arma::mat&)");
p_orthogonal_complement_matrix_TW = (Ptr_orthogonal_complement_matrix_TW)R_GetCCallable("bsvarSIGNs", "_bsvarSIGNs_orthogonal_complement_matrix_TW");
}
RObject rcpp_result_gen;
{
RNGScope RCPP_rngScope_gen;
rcpp_result_gen = p_orthogonal_complement_matrix_TW(Shield<SEXP>(Rcpp::wrap(x)));
}
if (rcpp_result_gen.inherits("interrupted-error"))
throw Rcpp::internal::InterruptedException();
if (Rcpp::internal::isLongjumpSentinel(rcpp_result_gen))
throw Rcpp::LongjumpException(rcpp_result_gen);
if (rcpp_result_gen.inherits("try-error"))
throw Rcpp::exception(Rcpp::as<std::string>(rcpp_result_gen).c_str());
return Rcpp::as<arma::mat >(rcpp_result_gen);
}

inline std::string ordinal(int n) {
typedef SEXP(*Ptr_ordinal)(SEXP);
static Ptr_ordinal p_ordinal = NULL;
if (p_ordinal == NULL) {
validateSignature("std::string(*ordinal)(int)");
p_ordinal = (Ptr_ordinal)R_GetCCallable("bsvarSIGNs", "_bsvarSIGNs_ordinal");
}
RObject rcpp_result_gen;
{
RNGScope RCPP_rngScope_gen;
rcpp_result_gen = p_ordinal(Shield<SEXP>(Rcpp::wrap(n)));
}
if (rcpp_result_gen.inherits("interrupted-error"))
throw Rcpp::internal::InterruptedException();
if (Rcpp::internal::isLongjumpSentinel(rcpp_result_gen))
throw Rcpp::LongjumpException(rcpp_result_gen);
if (rcpp_result_gen.inherits("try-error"))
throw Rcpp::exception(Rcpp::as<std::string>(rcpp_result_gen).c_str());
return Rcpp::as<std::string >(rcpp_result_gen);
}

inline void sample_hyperparameters(arma::mat& aux_hyper, const arma::mat& aux_B, const arma::mat& aux_A, const arma::field<arma::mat>& VB, const Rcpp::List& prior) {
typedef SEXP(*Ptr_sample_hyperparameters)(SEXP,SEXP,SEXP,SEXP,SEXP);
static Ptr_sample_hyperparameters p_sample_hyperparameters = NULL;
if (p_sample_hyperparameters == NULL) {
validateSignature("void(*sample_hyperparameters)(arma::mat&,const arma::mat&,const arma::mat&,const arma::field<arma::mat>&,const Rcpp::List&)");
p_sample_hyperparameters = (Ptr_sample_hyperparameters)R_GetCCallable("bsvarSIGNs", "_bsvarSIGNs_sample_hyperparameters");
}
RObject rcpp_result_gen;
{
RNGScope RCPP_rngScope_gen;
rcpp_result_gen = p_sample_hyperparameters(Shield<SEXP>(Rcpp::wrap(aux_hyper)), Shield<SEXP>(Rcpp::wrap(aux_B)), Shield<SEXP>(Rcpp::wrap(aux_A)), Shield<SEXP>(Rcpp::wrap(VB)), Shield<SEXP>(Rcpp::wrap(prior)));
}
if (rcpp_result_gen.inherits("interrupted-error"))
throw Rcpp::internal::InterruptedException();
if (Rcpp::internal::isLongjumpSentinel(rcpp_result_gen))
throw Rcpp::LongjumpException(rcpp_result_gen);
if (rcpp_result_gen.inherits("try-error"))
throw Rcpp::exception(Rcpp::as<std::string>(rcpp_result_gen).c_str());
}

inline void sample_A_homosk1(arma::mat& aux_A, const arma::mat& aux_B, const arma::mat& aux_hyper, const arma::mat& Y, const arma::mat& X, const Rcpp::List& prior) {
typedef SEXP(*Ptr_sample_A_homosk1)(SEXP,SEXP,SEXP,SEXP,SEXP,SEXP);
static Ptr_sample_A_homosk1 p_sample_A_homosk1 = NULL;
if (p_sample_A_homosk1 == NULL) {
validateSignature("void(*sample_A_homosk1)(arma::mat&,const arma::mat&,const arma::mat&,const arma::mat&,const arma::mat&,const Rcpp::List&)");
p_sample_A_homosk1 = (Ptr_sample_A_homosk1)R_GetCCallable("bsvarSIGNs", "_bsvarSIGNs_sample_A_homosk1");
}
RObject rcpp_result_gen;
{
RNGScope RCPP_rngScope_gen;
rcpp_result_gen = p_sample_A_homosk1(Shield<SEXP>(Rcpp::wrap(aux_A)), Shield<SEXP>(Rcpp::wrap(aux_B)), Shield<SEXP>(Rcpp::wrap(aux_hyper)), Shield<SEXP>(Rcpp::wrap(Y)), Shield<SEXP>(Rcpp::wrap(X)), Shield<SEXP>(Rcpp::wrap(prior)));
}
if (rcpp_result_gen.inherits("interrupted-error"))
throw Rcpp::internal::InterruptedException();
if (Rcpp::internal::isLongjumpSentinel(rcpp_result_gen))
throw Rcpp::LongjumpException(rcpp_result_gen);
if (rcpp_result_gen.inherits("try-error"))
throw Rcpp::exception(Rcpp::as<std::string>(rcpp_result_gen).c_str());
}

inline void sample_B_homosk1(arma::mat& aux_B, const arma::mat& aux_A, const arma::mat& aux_hyper, const arma::mat& Y, const arma::mat& X, const Rcpp::List& prior, const arma::field<arma::mat>& VB) {
typedef SEXP(*Ptr_sample_B_homosk1)(SEXP,SEXP,SEXP,SEXP,SEXP,SEXP,SEXP);
static Ptr_sample_B_homosk1 p_sample_B_homosk1 = NULL;
if (p_sample_B_homosk1 == NULL) {
validateSignature("void(*sample_B_homosk1)(arma::mat&,const arma::mat&,const arma::mat&,const arma::mat&,const arma::mat&,const Rcpp::List&,const arma::field<arma::mat>&)");
p_sample_B_homosk1 = (Ptr_sample_B_homosk1)R_GetCCallable("bsvarSIGNs", "_bsvarSIGNs_sample_B_homosk1");
}
RObject rcpp_result_gen;
{
RNGScope RCPP_rngScope_gen;
rcpp_result_gen = p_sample_B_homosk1(Shield<SEXP>(Rcpp::wrap(aux_B)), Shield<SEXP>(Rcpp::wrap(aux_A)), Shield<SEXP>(Rcpp::wrap(aux_hyper)), Shield<SEXP>(Rcpp::wrap(Y)), Shield<SEXP>(Rcpp::wrap(X)), Shield<SEXP>(Rcpp::wrap(prior)), Shield<SEXP>(Rcpp::wrap(VB)));
}
if (rcpp_result_gen.inherits("interrupted-error"))
throw Rcpp::internal::InterruptedException();
if (Rcpp::internal::isLongjumpSentinel(rcpp_result_gen))
throw Rcpp::LongjumpException(rcpp_result_gen);
if (rcpp_result_gen.inherits("try-error"))
throw Rcpp::exception(Rcpp::as<std::string>(rcpp_result_gen).c_str());
}

inline Rcpp::List bsvar_sign_cpp(const int& S, const arma::mat& Y, const arma::mat& X, const arma::field<arma::mat>& VB, const Rcpp::List& prior, const Rcpp::List& starting_values, const int thin = 100, const bool show_progress = true) {
typedef SEXP(*Ptr_bsvar_sign_cpp)(SEXP,SEXP,SEXP,SEXP,SEXP,SEXP,SEXP,SEXP);
static Ptr_bsvar_sign_cpp p_bsvar_sign_cpp = NULL;
Expand Down
197 changes: 0 additions & 197 deletions src/RcppExports.cpp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -14,188 +14,6 @@ Rcpp::Rostream<true>& Rcpp::Rcout = Rcpp::Rcpp_cout_get();
Rcpp::Rostream<false>& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get();
#endif

// orthogonal_complement_matrix_TW
arma::mat orthogonal_complement_matrix_TW(const arma::mat& x);
static SEXP _bsvarSIGNs_orthogonal_complement_matrix_TW_try(SEXP xSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::traits::input_parameter< const arma::mat& >::type x(xSEXP);
rcpp_result_gen = Rcpp::wrap(orthogonal_complement_matrix_TW(x));
return rcpp_result_gen;
END_RCPP_RETURN_ERROR
}
RcppExport SEXP _bsvarSIGNs_orthogonal_complement_matrix_TW(SEXP xSEXP) {
SEXP rcpp_result_gen;
{
Rcpp::RNGScope rcpp_rngScope_gen;
rcpp_result_gen = PROTECT(_bsvarSIGNs_orthogonal_complement_matrix_TW_try(xSEXP));
}
Rboolean rcpp_isInterrupt_gen = Rf_inherits(rcpp_result_gen, "interrupted-error");
if (rcpp_isInterrupt_gen) {
UNPROTECT(1);
Rf_onintr();
}
bool rcpp_isLongjump_gen = Rcpp::internal::isLongjumpSentinel(rcpp_result_gen);
if (rcpp_isLongjump_gen) {
Rcpp::internal::resumeJump(rcpp_result_gen);
}
Rboolean rcpp_isError_gen = Rf_inherits(rcpp_result_gen, "try-error");
if (rcpp_isError_gen) {
SEXP rcpp_msgSEXP_gen = Rf_asChar(rcpp_result_gen);
UNPROTECT(1);
Rf_error("%s", CHAR(rcpp_msgSEXP_gen));
}
UNPROTECT(1);
return rcpp_result_gen;
}
// ordinal
std::string ordinal(int n);
static SEXP _bsvarSIGNs_ordinal_try(SEXP nSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::traits::input_parameter< int >::type n(nSEXP);
rcpp_result_gen = Rcpp::wrap(ordinal(n));
return rcpp_result_gen;
END_RCPP_RETURN_ERROR
}
RcppExport SEXP _bsvarSIGNs_ordinal(SEXP nSEXP) {
SEXP rcpp_result_gen;
{
Rcpp::RNGScope rcpp_rngScope_gen;
rcpp_result_gen = PROTECT(_bsvarSIGNs_ordinal_try(nSEXP));
}
Rboolean rcpp_isInterrupt_gen = Rf_inherits(rcpp_result_gen, "interrupted-error");
if (rcpp_isInterrupt_gen) {
UNPROTECT(1);
Rf_onintr();
}
bool rcpp_isLongjump_gen = Rcpp::internal::isLongjumpSentinel(rcpp_result_gen);
if (rcpp_isLongjump_gen) {
Rcpp::internal::resumeJump(rcpp_result_gen);
}
Rboolean rcpp_isError_gen = Rf_inherits(rcpp_result_gen, "try-error");
if (rcpp_isError_gen) {
SEXP rcpp_msgSEXP_gen = Rf_asChar(rcpp_result_gen);
UNPROTECT(1);
Rf_error("%s", CHAR(rcpp_msgSEXP_gen));
}
UNPROTECT(1);
return rcpp_result_gen;
}
// sample_hyperparameters
void sample_hyperparameters(arma::mat& aux_hyper, const arma::mat& aux_B, const arma::mat& aux_A, const arma::field<arma::mat>& VB, const Rcpp::List& prior);
static SEXP _bsvarSIGNs_sample_hyperparameters_try(SEXP aux_hyperSEXP, SEXP aux_BSEXP, SEXP aux_ASEXP, SEXP VBSEXP, SEXP priorSEXP) {
BEGIN_RCPP
Rcpp::traits::input_parameter< arma::mat& >::type aux_hyper(aux_hyperSEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type aux_B(aux_BSEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type aux_A(aux_ASEXP);
Rcpp::traits::input_parameter< const arma::field<arma::mat>& >::type VB(VBSEXP);
Rcpp::traits::input_parameter< const Rcpp::List& >::type prior(priorSEXP);
sample_hyperparameters(aux_hyper, aux_B, aux_A, VB, prior);
return R_NilValue;
END_RCPP_RETURN_ERROR
}
RcppExport SEXP _bsvarSIGNs_sample_hyperparameters(SEXP aux_hyperSEXP, SEXP aux_BSEXP, SEXP aux_ASEXP, SEXP VBSEXP, SEXP priorSEXP) {
SEXP rcpp_result_gen;
{
Rcpp::RNGScope rcpp_rngScope_gen;
rcpp_result_gen = PROTECT(_bsvarSIGNs_sample_hyperparameters_try(aux_hyperSEXP, aux_BSEXP, aux_ASEXP, VBSEXP, priorSEXP));
}
Rboolean rcpp_isInterrupt_gen = Rf_inherits(rcpp_result_gen, "interrupted-error");
if (rcpp_isInterrupt_gen) {
UNPROTECT(1);
Rf_onintr();
}
bool rcpp_isLongjump_gen = Rcpp::internal::isLongjumpSentinel(rcpp_result_gen);
if (rcpp_isLongjump_gen) {
Rcpp::internal::resumeJump(rcpp_result_gen);
}
Rboolean rcpp_isError_gen = Rf_inherits(rcpp_result_gen, "try-error");
if (rcpp_isError_gen) {
SEXP rcpp_msgSEXP_gen = Rf_asChar(rcpp_result_gen);
UNPROTECT(1);
Rf_error("%s", CHAR(rcpp_msgSEXP_gen));
}
UNPROTECT(1);
return rcpp_result_gen;
}
// sample_A_homosk1
void sample_A_homosk1(arma::mat& aux_A, const arma::mat& aux_B, const arma::mat& aux_hyper, const arma::mat& Y, const arma::mat& X, const Rcpp::List& prior);
static SEXP _bsvarSIGNs_sample_A_homosk1_try(SEXP aux_ASEXP, SEXP aux_BSEXP, SEXP aux_hyperSEXP, SEXP YSEXP, SEXP XSEXP, SEXP priorSEXP) {
BEGIN_RCPP
Rcpp::traits::input_parameter< arma::mat& >::type aux_A(aux_ASEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type aux_B(aux_BSEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type aux_hyper(aux_hyperSEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type Y(YSEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type X(XSEXP);
Rcpp::traits::input_parameter< const Rcpp::List& >::type prior(priorSEXP);
sample_A_homosk1(aux_A, aux_B, aux_hyper, Y, X, prior);
return R_NilValue;
END_RCPP_RETURN_ERROR
}
RcppExport SEXP _bsvarSIGNs_sample_A_homosk1(SEXP aux_ASEXP, SEXP aux_BSEXP, SEXP aux_hyperSEXP, SEXP YSEXP, SEXP XSEXP, SEXP priorSEXP) {
SEXP rcpp_result_gen;
{
Rcpp::RNGScope rcpp_rngScope_gen;
rcpp_result_gen = PROTECT(_bsvarSIGNs_sample_A_homosk1_try(aux_ASEXP, aux_BSEXP, aux_hyperSEXP, YSEXP, XSEXP, priorSEXP));
}
Rboolean rcpp_isInterrupt_gen = Rf_inherits(rcpp_result_gen, "interrupted-error");
if (rcpp_isInterrupt_gen) {
UNPROTECT(1);
Rf_onintr();
}
bool rcpp_isLongjump_gen = Rcpp::internal::isLongjumpSentinel(rcpp_result_gen);
if (rcpp_isLongjump_gen) {
Rcpp::internal::resumeJump(rcpp_result_gen);
}
Rboolean rcpp_isError_gen = Rf_inherits(rcpp_result_gen, "try-error");
if (rcpp_isError_gen) {
SEXP rcpp_msgSEXP_gen = Rf_asChar(rcpp_result_gen);
UNPROTECT(1);
Rf_error("%s", CHAR(rcpp_msgSEXP_gen));
}
UNPROTECT(1);
return rcpp_result_gen;
}
// sample_B_homosk1
void sample_B_homosk1(arma::mat& aux_B, const arma::mat& aux_A, const arma::mat& aux_hyper, const arma::mat& Y, const arma::mat& X, const Rcpp::List& prior, const arma::field<arma::mat>& VB);
static SEXP _bsvarSIGNs_sample_B_homosk1_try(SEXP aux_BSEXP, SEXP aux_ASEXP, SEXP aux_hyperSEXP, SEXP YSEXP, SEXP XSEXP, SEXP priorSEXP, SEXP VBSEXP) {
BEGIN_RCPP
Rcpp::traits::input_parameter< arma::mat& >::type aux_B(aux_BSEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type aux_A(aux_ASEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type aux_hyper(aux_hyperSEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type Y(YSEXP);
Rcpp::traits::input_parameter< const arma::mat& >::type X(XSEXP);
Rcpp::traits::input_parameter< const Rcpp::List& >::type prior(priorSEXP);
Rcpp::traits::input_parameter< const arma::field<arma::mat>& >::type VB(VBSEXP);
sample_B_homosk1(aux_B, aux_A, aux_hyper, Y, X, prior, VB);
return R_NilValue;
END_RCPP_RETURN_ERROR
}
RcppExport SEXP _bsvarSIGNs_sample_B_homosk1(SEXP aux_BSEXP, SEXP aux_ASEXP, SEXP aux_hyperSEXP, SEXP YSEXP, SEXP XSEXP, SEXP priorSEXP, SEXP VBSEXP) {
SEXP rcpp_result_gen;
{
Rcpp::RNGScope rcpp_rngScope_gen;
rcpp_result_gen = PROTECT(_bsvarSIGNs_sample_B_homosk1_try(aux_BSEXP, aux_ASEXP, aux_hyperSEXP, YSEXP, XSEXP, priorSEXP, VBSEXP));
}
Rboolean rcpp_isInterrupt_gen = Rf_inherits(rcpp_result_gen, "interrupted-error");
if (rcpp_isInterrupt_gen) {
UNPROTECT(1);
Rf_onintr();
}
bool rcpp_isLongjump_gen = Rcpp::internal::isLongjumpSentinel(rcpp_result_gen);
if (rcpp_isLongjump_gen) {
Rcpp::internal::resumeJump(rcpp_result_gen);
}
Rboolean rcpp_isError_gen = Rf_inherits(rcpp_result_gen, "try-error");
if (rcpp_isError_gen) {
SEXP rcpp_msgSEXP_gen = Rf_asChar(rcpp_result_gen);
UNPROTECT(1);
Rf_error("%s", CHAR(rcpp_msgSEXP_gen));
}
UNPROTECT(1);
return rcpp_result_gen;
}
// bsvar_sign_cpp
Rcpp::List bsvar_sign_cpp(const int& S, const arma::mat& Y, const arma::mat& X, const arma::field<arma::mat>& VB, const Rcpp::List& prior, const Rcpp::List& starting_values, const int thin, const bool show_progress);
static SEXP _bsvarSIGNs_bsvar_sign_cpp_try(SEXP SSEXP, SEXP YSEXP, SEXP XSEXP, SEXP VBSEXP, SEXP priorSEXP, SEXP starting_valuesSEXP, SEXP thinSEXP, SEXP show_progressSEXP) {
Expand Down Expand Up @@ -255,34 +73,19 @@ END_RCPP
static int _bsvarSIGNs_RcppExport_validate(const char* sig) {
static std::set<std::string> signatures;
if (signatures.empty()) {
signatures.insert("arma::mat(*orthogonal_complement_matrix_TW)(const arma::mat&)");
signatures.insert("std::string(*ordinal)(int)");
signatures.insert("void(*sample_hyperparameters)(arma::mat&,const arma::mat&,const arma::mat&,const arma::field<arma::mat>&,const Rcpp::List&)");
signatures.insert("void(*sample_A_homosk1)(arma::mat&,const arma::mat&,const arma::mat&,const arma::mat&,const arma::mat&,const Rcpp::List&)");
signatures.insert("void(*sample_B_homosk1)(arma::mat&,const arma::mat&,const arma::mat&,const arma::mat&,const arma::mat&,const Rcpp::List&,const arma::field<arma::mat>&)");
signatures.insert("Rcpp::List(*bsvar_sign_cpp)(const int&,const arma::mat&,const arma::mat&,const arma::field<arma::mat>&,const Rcpp::List&,const Rcpp::List&,const int,const bool)");
}
return signatures.find(sig) != signatures.end();
}

// registerCCallable (register entry points for exported C++ functions)
RcppExport SEXP _bsvarSIGNs_RcppExport_registerCCallable() {
R_RegisterCCallable("bsvarSIGNs", "_bsvarSIGNs_orthogonal_complement_matrix_TW", (DL_FUNC)_bsvarSIGNs_orthogonal_complement_matrix_TW_try);
R_RegisterCCallable("bsvarSIGNs", "_bsvarSIGNs_ordinal", (DL_FUNC)_bsvarSIGNs_ordinal_try);
R_RegisterCCallable("bsvarSIGNs", "_bsvarSIGNs_sample_hyperparameters", (DL_FUNC)_bsvarSIGNs_sample_hyperparameters_try);
R_RegisterCCallable("bsvarSIGNs", "_bsvarSIGNs_sample_A_homosk1", (DL_FUNC)_bsvarSIGNs_sample_A_homosk1_try);
R_RegisterCCallable("bsvarSIGNs", "_bsvarSIGNs_sample_B_homosk1", (DL_FUNC)_bsvarSIGNs_sample_B_homosk1_try);
R_RegisterCCallable("bsvarSIGNs", "_bsvarSIGNs_bsvar_sign_cpp", (DL_FUNC)_bsvarSIGNs_bsvar_sign_cpp_try);
R_RegisterCCallable("bsvarSIGNs", "_bsvarSIGNs_RcppExport_validate", (DL_FUNC)_bsvarSIGNs_RcppExport_validate);
return R_NilValue;
}

static const R_CallMethodDef CallEntries[] = {
{"_bsvarSIGNs_orthogonal_complement_matrix_TW", (DL_FUNC) &_bsvarSIGNs_orthogonal_complement_matrix_TW, 1},
{"_bsvarSIGNs_ordinal", (DL_FUNC) &_bsvarSIGNs_ordinal, 1},
{"_bsvarSIGNs_sample_hyperparameters", (DL_FUNC) &_bsvarSIGNs_sample_hyperparameters, 5},
{"_bsvarSIGNs_sample_A_homosk1", (DL_FUNC) &_bsvarSIGNs_sample_A_homosk1, 6},
{"_bsvarSIGNs_sample_B_homosk1", (DL_FUNC) &_bsvarSIGNs_sample_B_homosk1, 7},
{"_bsvarSIGNs_bsvar_sign_cpp", (DL_FUNC) &_bsvarSIGNs_bsvar_sign_cpp, 8},
{"_bsvarSIGNs_matnrnd_cpp", (DL_FUNC) &_bsvarSIGNs_matnrnd_cpp, 3},
{"_bsvarSIGNs_RcppExport_registerCCallable", (DL_FUNC) &_bsvarSIGNs_RcppExport_registerCCallable, 0},
Expand Down
Binary file modified src/bsvarSIGNs.so
View file
Binary file not shown.
Loading

0 comments on commit bd71d3b

Please sign in to comment.