Skip to content

Commit fa6c9ad

Browse files
author
NightlordTW
committed
Optimization of cpp code
1 parent 4f4c90b commit fa6c9ad

File tree

3 files changed

+149
-105
lines changed

3 files changed

+149
-105
lines changed

‎src/RcppExports.cpp‎

Lines changed: 76 additions & 76 deletions
Original file line numberDiff line numberDiff line change
@@ -12,145 +12,145 @@ Rcpp::Rostream<false>& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get();
1212
#endif
1313

1414
// ptv
15-
arma::mat ptv(arma::mat x, double df, bool lower);
15+
arma::mat ptv(arma::mat x, const double df, const bool lower);
1616
RcppExport SEXP _SimTOST_ptv(SEXP xSEXP, SEXP dfSEXP, SEXP lowerSEXP) {
1717
BEGIN_RCPP
1818
Rcpp::RObject rcpp_result_gen;
1919
Rcpp::RNGScope rcpp_rngScope_gen;
2020
Rcpp::traits::input_parameter< arma::mat >::type x(xSEXP);
21-
Rcpp::traits::input_parameter< double >::type df(dfSEXP);
22-
Rcpp::traits::input_parameter< bool >::type lower(lowerSEXP);
21+
Rcpp::traits::input_parameter< const double >::type df(dfSEXP);
22+
Rcpp::traits::input_parameter< const bool >::type lower(lowerSEXP);
2323
rcpp_result_gen = Rcpp::wrap(ptv(x, df, lower));
2424
return rcpp_result_gen;
2525
END_RCPP
2626
}
2727
// ptvdf
28-
arma::mat ptvdf(arma::mat x, arma::mat df, bool lower);
28+
arma::mat ptvdf(arma::mat x, arma::mat df, const bool lower);
2929
RcppExport SEXP _SimTOST_ptvdf(SEXP xSEXP, SEXP dfSEXP, SEXP lowerSEXP) {
3030
BEGIN_RCPP
3131
Rcpp::RObject rcpp_result_gen;
3232
Rcpp::RNGScope rcpp_rngScope_gen;
3333
Rcpp::traits::input_parameter< arma::mat >::type x(xSEXP);
3434
Rcpp::traits::input_parameter< arma::mat >::type df(dfSEXP);
35-
Rcpp::traits::input_parameter< bool >::type lower(lowerSEXP);
35+
Rcpp::traits::input_parameter< const bool >::type lower(lowerSEXP);
3636
rcpp_result_gen = Rcpp::wrap(ptvdf(x, df, lower));
3737
return rcpp_result_gen;
3838
END_RCPP
3939
}
4040
// check_equivalence
41-
arma::mat check_equivalence(const arma::uvec& typey, bool adseq, const arma::mat& tbioq, int k);
41+
arma::mat check_equivalence(const arma::uvec& typey, const bool adseq, const arma::mat& tbioq, const int k);
4242
RcppExport SEXP _SimTOST_check_equivalence(SEXP typeySEXP, SEXP adseqSEXP, SEXP tbioqSEXP, SEXP kSEXP) {
4343
BEGIN_RCPP
4444
Rcpp::RObject rcpp_result_gen;
4545
Rcpp::RNGScope rcpp_rngScope_gen;
4646
Rcpp::traits::input_parameter< const arma::uvec& >::type typey(typeySEXP);
47-
Rcpp::traits::input_parameter< bool >::type adseq(adseqSEXP);
47+
Rcpp::traits::input_parameter< const bool >::type adseq(adseqSEXP);
4848
Rcpp::traits::input_parameter< const arma::mat& >::type tbioq(tbioqSEXP);
49-
Rcpp::traits::input_parameter< int >::type k(kSEXP);
49+
Rcpp::traits::input_parameter< const int >::type k(kSEXP);
5050
rcpp_result_gen = Rcpp::wrap(check_equivalence(typey, adseq, tbioq, k));
5151
return rcpp_result_gen;
5252
END_RCPP
5353
}
5454
// test_2x2_dom
55-
arma::mat test_2x2_dom(int n, arma::vec muT, arma::vec muR, arma::mat SigmaW, arma::rowvec lequi_tol, arma::rowvec uequi_tol, arma::rowvec alpha, double sigmaB, arma::vec dropout, arma::vec Eper, arma::vec Eco, arma::uvec typey, bool adseq, int k, int arm_seed);
55+
arma::mat test_2x2_dom(const int n, const arma::vec& muT, const arma::vec& muR, const arma::mat& SigmaW, const arma::rowvec& lequi_tol, const arma::rowvec& uequi_tol, const arma::rowvec& alpha, const double sigmaB, const arma::vec& dropout, const arma::vec& Eper, const arma::vec& Eco, const arma::uvec& typey, const bool adseq, const int k, const int arm_seed);
5656
RcppExport SEXP _SimTOST_test_2x2_dom(SEXP nSEXP, SEXP muTSEXP, SEXP muRSEXP, SEXP SigmaWSEXP, SEXP lequi_tolSEXP, SEXP uequi_tolSEXP, SEXP alphaSEXP, SEXP sigmaBSEXP, SEXP dropoutSEXP, SEXP EperSEXP, SEXP EcoSEXP, SEXP typeySEXP, SEXP adseqSEXP, SEXP kSEXP, SEXP arm_seedSEXP) {
5757
BEGIN_RCPP
5858
Rcpp::RObject rcpp_result_gen;
5959
Rcpp::RNGScope rcpp_rngScope_gen;
60-
Rcpp::traits::input_parameter< int >::type n(nSEXP);
61-
Rcpp::traits::input_parameter< arma::vec >::type muT(muTSEXP);
62-
Rcpp::traits::input_parameter< arma::vec >::type muR(muRSEXP);
63-
Rcpp::traits::input_parameter< arma::mat >::type SigmaW(SigmaWSEXP);
64-
Rcpp::traits::input_parameter< arma::rowvec >::type lequi_tol(lequi_tolSEXP);
65-
Rcpp::traits::input_parameter< arma::rowvec >::type uequi_tol(uequi_tolSEXP);
66-
Rcpp::traits::input_parameter< arma::rowvec >::type alpha(alphaSEXP);
67-
Rcpp::traits::input_parameter< double >::type sigmaB(sigmaBSEXP);
68-
Rcpp::traits::input_parameter< arma::vec >::type dropout(dropoutSEXP);
69-
Rcpp::traits::input_parameter< arma::vec >::type Eper(EperSEXP);
70-
Rcpp::traits::input_parameter< arma::vec >::type Eco(EcoSEXP);
71-
Rcpp::traits::input_parameter< arma::uvec >::type typey(typeySEXP);
72-
Rcpp::traits::input_parameter< bool >::type adseq(adseqSEXP);
73-
Rcpp::traits::input_parameter< int >::type k(kSEXP);
74-
Rcpp::traits::input_parameter< int >::type arm_seed(arm_seedSEXP);
60+
Rcpp::traits::input_parameter< const int >::type n(nSEXP);
61+
Rcpp::traits::input_parameter< const arma::vec& >::type muT(muTSEXP);
62+
Rcpp::traits::input_parameter< const arma::vec& >::type muR(muRSEXP);
63+
Rcpp::traits::input_parameter< const arma::mat& >::type SigmaW(SigmaWSEXP);
64+
Rcpp::traits::input_parameter< const arma::rowvec& >::type lequi_tol(lequi_tolSEXP);
65+
Rcpp::traits::input_parameter< const arma::rowvec& >::type uequi_tol(uequi_tolSEXP);
66+
Rcpp::traits::input_parameter< const arma::rowvec& >::type alpha(alphaSEXP);
67+
Rcpp::traits::input_parameter< const double >::type sigmaB(sigmaBSEXP);
68+
Rcpp::traits::input_parameter< const arma::vec& >::type dropout(dropoutSEXP);
69+
Rcpp::traits::input_parameter< const arma::vec& >::type Eper(EperSEXP);
70+
Rcpp::traits::input_parameter< const arma::vec& >::type Eco(EcoSEXP);
71+
Rcpp::traits::input_parameter< const arma::uvec& >::type typey(typeySEXP);
72+
Rcpp::traits::input_parameter< const bool >::type adseq(adseqSEXP);
73+
Rcpp::traits::input_parameter< const int >::type k(kSEXP);
74+
Rcpp::traits::input_parameter< const int >::type arm_seed(arm_seedSEXP);
7575
rcpp_result_gen = Rcpp::wrap(test_2x2_dom(n, muT, muR, SigmaW, lequi_tol, uequi_tol, alpha, sigmaB, dropout, Eper, Eco, typey, adseq, k, arm_seed));
7676
return rcpp_result_gen;
7777
END_RCPP
7878
}
7979
// test_2x2_rom
80-
arma::mat test_2x2_rom(int n, arma::vec muT, arma::vec muR, arma::mat SigmaW, arma::rowvec lequi_tol, arma::rowvec uequi_tol, arma::rowvec alpha, double sigmaB, arma::vec dropout, arma::vec Eper, arma::vec Eco, arma::uvec typey, bool adseq, int k, int arm_seed);
80+
arma::mat test_2x2_rom(const int n, const arma::vec& muT, const arma::vec& muR, const arma::mat& SigmaW, const arma::rowvec& lequi_tol, const arma::rowvec& uequi_tol, const arma::rowvec& alpha, const double sigmaB, const arma::vec& dropout, const arma::vec& Eper, const arma::vec& Eco, const arma::uvec& typey, const bool adseq, const int k, const int arm_seed);
8181
RcppExport SEXP _SimTOST_test_2x2_rom(SEXP nSEXP, SEXP muTSEXP, SEXP muRSEXP, SEXP SigmaWSEXP, SEXP lequi_tolSEXP, SEXP uequi_tolSEXP, SEXP alphaSEXP, SEXP sigmaBSEXP, SEXP dropoutSEXP, SEXP EperSEXP, SEXP EcoSEXP, SEXP typeySEXP, SEXP adseqSEXP, SEXP kSEXP, SEXP arm_seedSEXP) {
8282
BEGIN_RCPP
8383
Rcpp::RObject rcpp_result_gen;
8484
Rcpp::RNGScope rcpp_rngScope_gen;
85-
Rcpp::traits::input_parameter< int >::type n(nSEXP);
86-
Rcpp::traits::input_parameter< arma::vec >::type muT(muTSEXP);
87-
Rcpp::traits::input_parameter< arma::vec >::type muR(muRSEXP);
88-
Rcpp::traits::input_parameter< arma::mat >::type SigmaW(SigmaWSEXP);
89-
Rcpp::traits::input_parameter< arma::rowvec >::type lequi_tol(lequi_tolSEXP);
90-
Rcpp::traits::input_parameter< arma::rowvec >::type uequi_tol(uequi_tolSEXP);
91-
Rcpp::traits::input_parameter< arma::rowvec >::type alpha(alphaSEXP);
92-
Rcpp::traits::input_parameter< double >::type sigmaB(sigmaBSEXP);
93-
Rcpp::traits::input_parameter< arma::vec >::type dropout(dropoutSEXP);
94-
Rcpp::traits::input_parameter< arma::vec >::type Eper(EperSEXP);
95-
Rcpp::traits::input_parameter< arma::vec >::type Eco(EcoSEXP);
96-
Rcpp::traits::input_parameter< arma::uvec >::type typey(typeySEXP);
97-
Rcpp::traits::input_parameter< bool >::type adseq(adseqSEXP);
98-
Rcpp::traits::input_parameter< int >::type k(kSEXP);
99-
Rcpp::traits::input_parameter< int >::type arm_seed(arm_seedSEXP);
85+
Rcpp::traits::input_parameter< const int >::type n(nSEXP);
86+
Rcpp::traits::input_parameter< const arma::vec& >::type muT(muTSEXP);
87+
Rcpp::traits::input_parameter< const arma::vec& >::type muR(muRSEXP);
88+
Rcpp::traits::input_parameter< const arma::mat& >::type SigmaW(SigmaWSEXP);
89+
Rcpp::traits::input_parameter< const arma::rowvec& >::type lequi_tol(lequi_tolSEXP);
90+
Rcpp::traits::input_parameter< const arma::rowvec& >::type uequi_tol(uequi_tolSEXP);
91+
Rcpp::traits::input_parameter< const arma::rowvec& >::type alpha(alphaSEXP);
92+
Rcpp::traits::input_parameter< const double >::type sigmaB(sigmaBSEXP);
93+
Rcpp::traits::input_parameter< const arma::vec& >::type dropout(dropoutSEXP);
94+
Rcpp::traits::input_parameter< const arma::vec& >::type Eper(EperSEXP);
95+
Rcpp::traits::input_parameter< const arma::vec& >::type Eco(EcoSEXP);
96+
Rcpp::traits::input_parameter< const arma::uvec& >::type typey(typeySEXP);
97+
Rcpp::traits::input_parameter< const bool >::type adseq(adseqSEXP);
98+
Rcpp::traits::input_parameter< const int >::type k(kSEXP);
99+
Rcpp::traits::input_parameter< const int >::type arm_seed(arm_seedSEXP);
100100
rcpp_result_gen = Rcpp::wrap(test_2x2_rom(n, muT, muR, SigmaW, lequi_tol, uequi_tol, alpha, sigmaB, dropout, Eper, Eco, typey, adseq, k, arm_seed));
101101
return rcpp_result_gen;
102102
END_RCPP
103103
}
104104
// test_par_dom
105-
arma::mat test_par_dom(int n, arma::vec muT, arma::vec muR, arma::mat SigmaT, arma::mat SigmaR, arma::rowvec lequi_tol, arma::rowvec uequi_tol, arma::rowvec alpha, arma::vec dropout, arma::uvec typey, bool adseq, int k, int arm_seedT, int arm_seedR, double TART, double TARR, bool vareq);
105+
arma::mat test_par_dom(const int n, const arma::vec& muT, const arma::vec& muR, const arma::mat& SigmaT, const arma::mat& SigmaR, const arma::rowvec& lequi_tol, const arma::rowvec& uequi_tol, const arma::rowvec& alpha, const arma::vec& dropout, const arma::uvec& typey, const bool adseq, const int k, const int arm_seedT, const int arm_seedR, const double TART, const double TARR, const bool vareq);
106106
RcppExport SEXP _SimTOST_test_par_dom(SEXP nSEXP, SEXP muTSEXP, SEXP muRSEXP, SEXP SigmaTSEXP, SEXP SigmaRSEXP, SEXP lequi_tolSEXP, SEXP uequi_tolSEXP, SEXP alphaSEXP, SEXP dropoutSEXP, SEXP typeySEXP, SEXP adseqSEXP, SEXP kSEXP, SEXP arm_seedTSEXP, SEXP arm_seedRSEXP, SEXP TARTSEXP, SEXP TARRSEXP, SEXP vareqSEXP) {
107107
BEGIN_RCPP
108108
Rcpp::RObject rcpp_result_gen;
109109
Rcpp::RNGScope rcpp_rngScope_gen;
110-
Rcpp::traits::input_parameter< int >::type n(nSEXP);
111-
Rcpp::traits::input_parameter< arma::vec >::type muT(muTSEXP);
112-
Rcpp::traits::input_parameter< arma::vec >::type muR(muRSEXP);
113-
Rcpp::traits::input_parameter< arma::mat >::type SigmaT(SigmaTSEXP);
114-
Rcpp::traits::input_parameter< arma::mat >::type SigmaR(SigmaRSEXP);
115-
Rcpp::traits::input_parameter< arma::rowvec >::type lequi_tol(lequi_tolSEXP);
116-
Rcpp::traits::input_parameter< arma::rowvec >::type uequi_tol(uequi_tolSEXP);
117-
Rcpp::traits::input_parameter< arma::rowvec >::type alpha(alphaSEXP);
118-
Rcpp::traits::input_parameter< arma::vec >::type dropout(dropoutSEXP);
119-
Rcpp::traits::input_parameter< arma::uvec >::type typey(typeySEXP);
120-
Rcpp::traits::input_parameter< bool >::type adseq(adseqSEXP);
121-
Rcpp::traits::input_parameter< int >::type k(kSEXP);
122-
Rcpp::traits::input_parameter< int >::type arm_seedT(arm_seedTSEXP);
123-
Rcpp::traits::input_parameter< int >::type arm_seedR(arm_seedRSEXP);
124-
Rcpp::traits::input_parameter< double >::type TART(TARTSEXP);
125-
Rcpp::traits::input_parameter< double >::type TARR(TARRSEXP);
126-
Rcpp::traits::input_parameter< bool >::type vareq(vareqSEXP);
110+
Rcpp::traits::input_parameter< const int >::type n(nSEXP);
111+
Rcpp::traits::input_parameter< const arma::vec& >::type muT(muTSEXP);
112+
Rcpp::traits::input_parameter< const arma::vec& >::type muR(muRSEXP);
113+
Rcpp::traits::input_parameter< const arma::mat& >::type SigmaT(SigmaTSEXP);
114+
Rcpp::traits::input_parameter< const arma::mat& >::type SigmaR(SigmaRSEXP);
115+
Rcpp::traits::input_parameter< const arma::rowvec& >::type lequi_tol(lequi_tolSEXP);
116+
Rcpp::traits::input_parameter< const arma::rowvec& >::type uequi_tol(uequi_tolSEXP);
117+
Rcpp::traits::input_parameter< const arma::rowvec& >::type alpha(alphaSEXP);
118+
Rcpp::traits::input_parameter< const arma::vec& >::type dropout(dropoutSEXP);
119+
Rcpp::traits::input_parameter< const arma::uvec& >::type typey(typeySEXP);
120+
Rcpp::traits::input_parameter< const bool >::type adseq(adseqSEXP);
121+
Rcpp::traits::input_parameter< const int >::type k(kSEXP);
122+
Rcpp::traits::input_parameter< const int >::type arm_seedT(arm_seedTSEXP);
123+
Rcpp::traits::input_parameter< const int >::type arm_seedR(arm_seedRSEXP);
124+
Rcpp::traits::input_parameter< const double >::type TART(TARTSEXP);
125+
Rcpp::traits::input_parameter< const double >::type TARR(TARRSEXP);
126+
Rcpp::traits::input_parameter< const bool >::type vareq(vareqSEXP);
127127
rcpp_result_gen = Rcpp::wrap(test_par_dom(n, muT, muR, SigmaT, SigmaR, lequi_tol, uequi_tol, alpha, dropout, typey, adseq, k, arm_seedT, arm_seedR, TART, TARR, vareq));
128128
return rcpp_result_gen;
129129
END_RCPP
130130
}
131131
// test_par_rom
132-
arma::mat test_par_rom(int n, arma::vec muT, arma::vec muR, arma::mat SigmaT, arma::mat SigmaR, arma::rowvec lequi_tol, arma::rowvec uequi_tol, arma::rowvec alpha, arma::vec dropout, arma::uvec typey, bool adseq, int k, int arm_seedT, int arm_seedR, double TART, double TARR, bool vareq);
132+
arma::mat test_par_rom(const int n, const arma::vec& muT, const arma::vec& muR, const arma::mat& SigmaT, const arma::mat& SigmaR, const arma::rowvec& lequi_tol, const arma::rowvec& uequi_tol, const arma::rowvec& alpha, const arma::vec& dropout, const arma::uvec& typey, const bool adseq, const int k, const int arm_seedT, const int arm_seedR, const double TART, const double TARR, const bool vareq);
133133
RcppExport SEXP _SimTOST_test_par_rom(SEXP nSEXP, SEXP muTSEXP, SEXP muRSEXP, SEXP SigmaTSEXP, SEXP SigmaRSEXP, SEXP lequi_tolSEXP, SEXP uequi_tolSEXP, SEXP alphaSEXP, SEXP dropoutSEXP, SEXP typeySEXP, SEXP adseqSEXP, SEXP kSEXP, SEXP arm_seedTSEXP, SEXP arm_seedRSEXP, SEXP TARTSEXP, SEXP TARRSEXP, SEXP vareqSEXP) {
134134
BEGIN_RCPP
135135
Rcpp::RObject rcpp_result_gen;
136136
Rcpp::RNGScope rcpp_rngScope_gen;
137-
Rcpp::traits::input_parameter< int >::type n(nSEXP);
138-
Rcpp::traits::input_parameter< arma::vec >::type muT(muTSEXP);
139-
Rcpp::traits::input_parameter< arma::vec >::type muR(muRSEXP);
140-
Rcpp::traits::input_parameter< arma::mat >::type SigmaT(SigmaTSEXP);
141-
Rcpp::traits::input_parameter< arma::mat >::type SigmaR(SigmaRSEXP);
142-
Rcpp::traits::input_parameter< arma::rowvec >::type lequi_tol(lequi_tolSEXP);
143-
Rcpp::traits::input_parameter< arma::rowvec >::type uequi_tol(uequi_tolSEXP);
144-
Rcpp::traits::input_parameter< arma::rowvec >::type alpha(alphaSEXP);
145-
Rcpp::traits::input_parameter< arma::vec >::type dropout(dropoutSEXP);
146-
Rcpp::traits::input_parameter< arma::uvec >::type typey(typeySEXP);
147-
Rcpp::traits::input_parameter< bool >::type adseq(adseqSEXP);
148-
Rcpp::traits::input_parameter< int >::type k(kSEXP);
149-
Rcpp::traits::input_parameter< int >::type arm_seedT(arm_seedTSEXP);
150-
Rcpp::traits::input_parameter< int >::type arm_seedR(arm_seedRSEXP);
151-
Rcpp::traits::input_parameter< double >::type TART(TARTSEXP);
152-
Rcpp::traits::input_parameter< double >::type TARR(TARRSEXP);
153-
Rcpp::traits::input_parameter< bool >::type vareq(vareqSEXP);
137+
Rcpp::traits::input_parameter< const int >::type n(nSEXP);
138+
Rcpp::traits::input_parameter< const arma::vec& >::type muT(muTSEXP);
139+
Rcpp::traits::input_parameter< const arma::vec& >::type muR(muRSEXP);
140+
Rcpp::traits::input_parameter< const arma::mat& >::type SigmaT(SigmaTSEXP);
141+
Rcpp::traits::input_parameter< const arma::mat& >::type SigmaR(SigmaRSEXP);
142+
Rcpp::traits::input_parameter< const arma::rowvec& >::type lequi_tol(lequi_tolSEXP);
143+
Rcpp::traits::input_parameter< const arma::rowvec& >::type uequi_tol(uequi_tolSEXP);
144+
Rcpp::traits::input_parameter< const arma::rowvec& >::type alpha(alphaSEXP);
145+
Rcpp::traits::input_parameter< const arma::vec& >::type dropout(dropoutSEXP);
146+
Rcpp::traits::input_parameter< const arma::uvec& >::type typey(typeySEXP);
147+
Rcpp::traits::input_parameter< const bool >::type adseq(adseqSEXP);
148+
Rcpp::traits::input_parameter< const int >::type k(kSEXP);
149+
Rcpp::traits::input_parameter< const int >::type arm_seedT(arm_seedTSEXP);
150+
Rcpp::traits::input_parameter< const int >::type arm_seedR(arm_seedRSEXP);
151+
Rcpp::traits::input_parameter< const double >::type TART(TARTSEXP);
152+
Rcpp::traits::input_parameter< const double >::type TARR(TARRSEXP);
153+
Rcpp::traits::input_parameter< const bool >::type vareq(vareqSEXP);
154154
rcpp_result_gen = Rcpp::wrap(test_par_rom(n, muT, muR, SigmaT, SigmaR, lequi_tol, uequi_tol, alpha, dropout, typey, adseq, k, arm_seedT, arm_seedR, TART, TARR, vareq));
155155
return rcpp_result_gen;
156156
END_RCPP

0 commit comments

Comments
 (0)