1 // Generated by using Rcpp::compileAttributes() -> do not edit by hand
2 // Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
3 
4 #include <Rcpp.h>
5 
6 using namespace Rcpp;
7 
8 // avg_rank
9 NumericVector avg_rank(Rcpp::NumericVector x);
_ModelMetrics_avg_rank(SEXP xSEXP)10 RcppExport SEXP _ModelMetrics_avg_rank(SEXP xSEXP) {
11 BEGIN_RCPP
12     Rcpp::RObject rcpp_result_gen;
13     Rcpp::RNGScope rcpp_rngScope_gen;
14     Rcpp::traits::input_parameter< Rcpp::NumericVector >::type x(xSEXP);
15     rcpp_result_gen = Rcpp::wrap(avg_rank(x));
16     return rcpp_result_gen;
17 END_RCPP
18 }
19 // auc_
20 double auc_(NumericVector actual, NumericVector predicted);
_ModelMetrics_auc_(SEXP actualSEXP,SEXP predictedSEXP)21 RcppExport SEXP _ModelMetrics_auc_(SEXP actualSEXP, SEXP predictedSEXP) {
22 BEGIN_RCPP
23     Rcpp::RObject rcpp_result_gen;
24     Rcpp::RNGScope rcpp_rngScope_gen;
25     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
26     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
27     rcpp_result_gen = Rcpp::wrap(auc_(actual, predicted));
28     return rcpp_result_gen;
29 END_RCPP
30 }
31 // auc2_
32 double auc2_(NumericVector actual, NumericVector predicted);
_ModelMetrics_auc2_(SEXP actualSEXP,SEXP predictedSEXP)33 RcppExport SEXP _ModelMetrics_auc2_(SEXP actualSEXP, SEXP predictedSEXP) {
34 BEGIN_RCPP
35     Rcpp::RObject rcpp_result_gen;
36     Rcpp::RNGScope rcpp_rngScope_gen;
37     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
38     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
39     rcpp_result_gen = Rcpp::wrap(auc2_(actual, predicted));
40     return rcpp_result_gen;
41 END_RCPP
42 }
43 // auc3_
44 double auc3_(NumericVector actual, NumericVector predicted, NumericVector ranks);
_ModelMetrics_auc3_(SEXP actualSEXP,SEXP predictedSEXP,SEXP ranksSEXP)45 RcppExport SEXP _ModelMetrics_auc3_(SEXP actualSEXP, SEXP predictedSEXP, SEXP ranksSEXP) {
46 BEGIN_RCPP
47     Rcpp::RObject rcpp_result_gen;
48     Rcpp::RNGScope rcpp_rngScope_gen;
49     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
50     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
51     Rcpp::traits::input_parameter< NumericVector >::type ranks(ranksSEXP);
52     rcpp_result_gen = Rcpp::wrap(auc3_(actual, predicted, ranks));
53     return rcpp_result_gen;
54 END_RCPP
55 }
56 // confusionMatrix_
57 NumericMatrix confusionMatrix_(NumericVector actual, NumericVector predicted, double cutoff);
_ModelMetrics_confusionMatrix_(SEXP actualSEXP,SEXP predictedSEXP,SEXP cutoffSEXP)58 RcppExport SEXP _ModelMetrics_confusionMatrix_(SEXP actualSEXP, SEXP predictedSEXP, SEXP cutoffSEXP) {
59 BEGIN_RCPP
60     Rcpp::RObject rcpp_result_gen;
61     Rcpp::RNGScope rcpp_rngScope_gen;
62     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
63     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
64     Rcpp::traits::input_parameter< double >::type cutoff(cutoffSEXP);
65     rcpp_result_gen = Rcpp::wrap(confusionMatrix_(actual, predicted, cutoff));
66     return rcpp_result_gen;
67 END_RCPP
68 }
69 // ppv_
70 double ppv_(NumericVector actual, NumericVector predicted, double cutoff);
_ModelMetrics_ppv_(SEXP actualSEXP,SEXP predictedSEXP,SEXP cutoffSEXP)71 RcppExport SEXP _ModelMetrics_ppv_(SEXP actualSEXP, SEXP predictedSEXP, SEXP cutoffSEXP) {
72 BEGIN_RCPP
73     Rcpp::RObject rcpp_result_gen;
74     Rcpp::RNGScope rcpp_rngScope_gen;
75     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
76     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
77     Rcpp::traits::input_parameter< double >::type cutoff(cutoffSEXP);
78     rcpp_result_gen = Rcpp::wrap(ppv_(actual, predicted, cutoff));
79     return rcpp_result_gen;
80 END_RCPP
81 }
82 // npv_
83 double npv_(NumericVector actual, NumericVector predicted, double cutoff);
_ModelMetrics_npv_(SEXP actualSEXP,SEXP predictedSEXP,SEXP cutoffSEXP)84 RcppExport SEXP _ModelMetrics_npv_(SEXP actualSEXP, SEXP predictedSEXP, SEXP cutoffSEXP) {
85 BEGIN_RCPP
86     Rcpp::RObject rcpp_result_gen;
87     Rcpp::RNGScope rcpp_rngScope_gen;
88     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
89     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
90     Rcpp::traits::input_parameter< double >::type cutoff(cutoffSEXP);
91     rcpp_result_gen = Rcpp::wrap(npv_(actual, predicted, cutoff));
92     return rcpp_result_gen;
93 END_RCPP
94 }
95 // tnr_
96 double tnr_(NumericVector actual, NumericVector predicted, double cutoff);
_ModelMetrics_tnr_(SEXP actualSEXP,SEXP predictedSEXP,SEXP cutoffSEXP)97 RcppExport SEXP _ModelMetrics_tnr_(SEXP actualSEXP, SEXP predictedSEXP, SEXP cutoffSEXP) {
98 BEGIN_RCPP
99     Rcpp::RObject rcpp_result_gen;
100     Rcpp::RNGScope rcpp_rngScope_gen;
101     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
102     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
103     Rcpp::traits::input_parameter< double >::type cutoff(cutoffSEXP);
104     rcpp_result_gen = Rcpp::wrap(tnr_(actual, predicted, cutoff));
105     return rcpp_result_gen;
106 END_RCPP
107 }
108 // recall_
109 double recall_(NumericVector actual, NumericVector predicted, double cutoff);
_ModelMetrics_recall_(SEXP actualSEXP,SEXP predictedSEXP,SEXP cutoffSEXP)110 RcppExport SEXP _ModelMetrics_recall_(SEXP actualSEXP, SEXP predictedSEXP, SEXP cutoffSEXP) {
111 BEGIN_RCPP
112     Rcpp::RObject rcpp_result_gen;
113     Rcpp::RNGScope rcpp_rngScope_gen;
114     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
115     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
116     Rcpp::traits::input_parameter< double >::type cutoff(cutoffSEXP);
117     rcpp_result_gen = Rcpp::wrap(recall_(actual, predicted, cutoff));
118     return rcpp_result_gen;
119 END_RCPP
120 }
121 // fScore_
122 double fScore_(NumericVector actual, NumericVector predicted, double cutoff, double beta);
_ModelMetrics_fScore_(SEXP actualSEXP,SEXP predictedSEXP,SEXP cutoffSEXP,SEXP betaSEXP)123 RcppExport SEXP _ModelMetrics_fScore_(SEXP actualSEXP, SEXP predictedSEXP, SEXP cutoffSEXP, SEXP betaSEXP) {
124 BEGIN_RCPP
125     Rcpp::RObject rcpp_result_gen;
126     Rcpp::RNGScope rcpp_rngScope_gen;
127     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
128     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
129     Rcpp::traits::input_parameter< double >::type cutoff(cutoffSEXP);
130     Rcpp::traits::input_parameter< double >::type beta(betaSEXP);
131     rcpp_result_gen = Rcpp::wrap(fScore_(actual, predicted, cutoff, beta));
132     return rcpp_result_gen;
133 END_RCPP
134 }
135 // f1Score_
136 double f1Score_(NumericVector actual, NumericVector predicted, double cutoff);
_ModelMetrics_f1Score_(SEXP actualSEXP,SEXP predictedSEXP,SEXP cutoffSEXP)137 RcppExport SEXP _ModelMetrics_f1Score_(SEXP actualSEXP, SEXP predictedSEXP, SEXP cutoffSEXP) {
138 BEGIN_RCPP
139     Rcpp::RObject rcpp_result_gen;
140     Rcpp::RNGScope rcpp_rngScope_gen;
141     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
142     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
143     Rcpp::traits::input_parameter< double >::type cutoff(cutoffSEXP);
144     rcpp_result_gen = Rcpp::wrap(f1Score_(actual, predicted, cutoff));
145     return rcpp_result_gen;
146 END_RCPP
147 }
148 // brier_
149 double brier_(NumericVector actual, NumericVector predicted);
_ModelMetrics_brier_(SEXP actualSEXP,SEXP predictedSEXP)150 RcppExport SEXP _ModelMetrics_brier_(SEXP actualSEXP, SEXP predictedSEXP) {
151 BEGIN_RCPP
152     Rcpp::RObject rcpp_result_gen;
153     Rcpp::RNGScope rcpp_rngScope_gen;
154     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
155     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
156     rcpp_result_gen = Rcpp::wrap(brier_(actual, predicted));
157     return rcpp_result_gen;
158 END_RCPP
159 }
160 // mcc_
161 double mcc_(NumericVector actual, NumericVector predicted, double cutoff);
_ModelMetrics_mcc_(SEXP actualSEXP,SEXP predictedSEXP,SEXP cutoffSEXP)162 RcppExport SEXP _ModelMetrics_mcc_(SEXP actualSEXP, SEXP predictedSEXP, SEXP cutoffSEXP) {
163 BEGIN_RCPP
164     Rcpp::RObject rcpp_result_gen;
165     Rcpp::RNGScope rcpp_rngScope_gen;
166     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
167     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
168     Rcpp::traits::input_parameter< double >::type cutoff(cutoffSEXP);
169     rcpp_result_gen = Rcpp::wrap(mcc_(actual, predicted, cutoff));
170     return rcpp_result_gen;
171 END_RCPP
172 }
173 // kappa_
174 double kappa_(NumericVector actual, NumericVector predicted, double cutoff);
_ModelMetrics_kappa_(SEXP actualSEXP,SEXP predictedSEXP,SEXP cutoffSEXP)175 RcppExport SEXP _ModelMetrics_kappa_(SEXP actualSEXP, SEXP predictedSEXP, SEXP cutoffSEXP) {
176 BEGIN_RCPP
177     Rcpp::RObject rcpp_result_gen;
178     Rcpp::RNGScope rcpp_rngScope_gen;
179     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
180     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
181     Rcpp::traits::input_parameter< double >::type cutoff(cutoffSEXP);
182     rcpp_result_gen = Rcpp::wrap(kappa_(actual, predicted, cutoff));
183     return rcpp_result_gen;
184 END_RCPP
185 }
186 // mae_
187 double mae_(NumericVector actual, NumericVector predicted);
_ModelMetrics_mae_(SEXP actualSEXP,SEXP predictedSEXP)188 RcppExport SEXP _ModelMetrics_mae_(SEXP actualSEXP, SEXP predictedSEXP) {
189 BEGIN_RCPP
190     Rcpp::RObject rcpp_result_gen;
191     Rcpp::RNGScope rcpp_rngScope_gen;
192     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
193     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
194     rcpp_result_gen = Rcpp::wrap(mae_(actual, predicted));
195     return rcpp_result_gen;
196 END_RCPP
197 }
198 // ce_
199 double ce_(NumericVector actual, NumericVector predicted);
_ModelMetrics_ce_(SEXP actualSEXP,SEXP predictedSEXP)200 RcppExport SEXP _ModelMetrics_ce_(SEXP actualSEXP, SEXP predictedSEXP) {
201 BEGIN_RCPP
202     Rcpp::RObject rcpp_result_gen;
203     Rcpp::RNGScope rcpp_rngScope_gen;
204     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
205     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
206     rcpp_result_gen = Rcpp::wrap(ce_(actual, predicted));
207     return rcpp_result_gen;
208 END_RCPP
209 }
210 // mse_
211 double mse_(NumericVector actual, NumericVector predicted);
_ModelMetrics_mse_(SEXP actualSEXP,SEXP predictedSEXP)212 RcppExport SEXP _ModelMetrics_mse_(SEXP actualSEXP, SEXP predictedSEXP) {
213 BEGIN_RCPP
214     Rcpp::RObject rcpp_result_gen;
215     Rcpp::RNGScope rcpp_rngScope_gen;
216     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
217     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
218     rcpp_result_gen = Rcpp::wrap(mse_(actual, predicted));
219     return rcpp_result_gen;
220 END_RCPP
221 }
222 // msle_
223 double msle_(NumericVector actual, NumericVector predicted);
_ModelMetrics_msle_(SEXP actualSEXP,SEXP predictedSEXP)224 RcppExport SEXP _ModelMetrics_msle_(SEXP actualSEXP, SEXP predictedSEXP) {
225 BEGIN_RCPP
226     Rcpp::RObject rcpp_result_gen;
227     Rcpp::RNGScope rcpp_rngScope_gen;
228     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
229     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
230     rcpp_result_gen = Rcpp::wrap(msle_(actual, predicted));
231     return rcpp_result_gen;
232 END_RCPP
233 }
234 // rmsle_
235 double rmsle_(NumericVector actual, NumericVector predicted);
_ModelMetrics_rmsle_(SEXP actualSEXP,SEXP predictedSEXP)236 RcppExport SEXP _ModelMetrics_rmsle_(SEXP actualSEXP, SEXP predictedSEXP) {
237 BEGIN_RCPP
238     Rcpp::RObject rcpp_result_gen;
239     Rcpp::RNGScope rcpp_rngScope_gen;
240     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
241     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
242     rcpp_result_gen = Rcpp::wrap(rmsle_(actual, predicted));
243     return rcpp_result_gen;
244 END_RCPP
245 }
246 // rmse_
247 double rmse_(NumericVector actual, NumericVector predicted);
_ModelMetrics_rmse_(SEXP actualSEXP,SEXP predictedSEXP)248 RcppExport SEXP _ModelMetrics_rmse_(SEXP actualSEXP, SEXP predictedSEXP) {
249 BEGIN_RCPP
250     Rcpp::RObject rcpp_result_gen;
251     Rcpp::RNGScope rcpp_rngScope_gen;
252     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
253     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
254     rcpp_result_gen = Rcpp::wrap(rmse_(actual, predicted));
255     return rcpp_result_gen;
256 END_RCPP
257 }
258 // gini_
259 double gini_(NumericVector actual);
_ModelMetrics_gini_(SEXP actualSEXP)260 RcppExport SEXP _ModelMetrics_gini_(SEXP actualSEXP) {
261 BEGIN_RCPP
262     Rcpp::RObject rcpp_result_gen;
263     Rcpp::RNGScope rcpp_rngScope_gen;
264     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
265     rcpp_result_gen = Rcpp::wrap(gini_(actual));
266     return rcpp_result_gen;
267 END_RCPP
268 }
269 // logLoss_
270 double logLoss_(NumericVector actual, NumericVector predicted);
_ModelMetrics_logLoss_(SEXP actualSEXP,SEXP predictedSEXP)271 RcppExport SEXP _ModelMetrics_logLoss_(SEXP actualSEXP, SEXP predictedSEXP) {
272 BEGIN_RCPP
273     Rcpp::RObject rcpp_result_gen;
274     Rcpp::RNGScope rcpp_rngScope_gen;
275     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
276     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
277     rcpp_result_gen = Rcpp::wrap(logLoss_(actual, predicted));
278     return rcpp_result_gen;
279 END_RCPP
280 }
281 // mlogLoss_
282 double mlogLoss_(NumericVector actual, NumericMatrix predicted);
_ModelMetrics_mlogLoss_(SEXP actualSEXP,SEXP predictedSEXP)283 RcppExport SEXP _ModelMetrics_mlogLoss_(SEXP actualSEXP, SEXP predictedSEXP) {
284 BEGIN_RCPP
285     Rcpp::RObject rcpp_result_gen;
286     Rcpp::RNGScope rcpp_rngScope_gen;
287     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
288     Rcpp::traits::input_parameter< NumericMatrix >::type predicted(predictedSEXP);
289     rcpp_result_gen = Rcpp::wrap(mlogLoss_(actual, predicted));
290     return rcpp_result_gen;
291 END_RCPP
292 }
293 // plogLoss_
294 double plogLoss_(NumericVector actual, NumericVector predicted);
_ModelMetrics_plogLoss_(SEXP actualSEXP,SEXP predictedSEXP)295 RcppExport SEXP _ModelMetrics_plogLoss_(SEXP actualSEXP, SEXP predictedSEXP) {
296 BEGIN_RCPP
297     Rcpp::RObject rcpp_result_gen;
298     Rcpp::RNGScope rcpp_rngScope_gen;
299     Rcpp::traits::input_parameter< NumericVector >::type actual(actualSEXP);
300     Rcpp::traits::input_parameter< NumericVector >::type predicted(predictedSEXP);
301     rcpp_result_gen = Rcpp::wrap(plogLoss_(actual, predicted));
302     return rcpp_result_gen;
303 END_RCPP
304 }
305 
306 static const R_CallMethodDef CallEntries[] = {
307     {"_ModelMetrics_avg_rank", (DL_FUNC) &_ModelMetrics_avg_rank, 1},
308     {"_ModelMetrics_auc_", (DL_FUNC) &_ModelMetrics_auc_, 2},
309     {"_ModelMetrics_auc2_", (DL_FUNC) &_ModelMetrics_auc2_, 2},
310     {"_ModelMetrics_auc3_", (DL_FUNC) &_ModelMetrics_auc3_, 3},
311     {"_ModelMetrics_confusionMatrix_", (DL_FUNC) &_ModelMetrics_confusionMatrix_, 3},
312     {"_ModelMetrics_ppv_", (DL_FUNC) &_ModelMetrics_ppv_, 3},
313     {"_ModelMetrics_npv_", (DL_FUNC) &_ModelMetrics_npv_, 3},
314     {"_ModelMetrics_tnr_", (DL_FUNC) &_ModelMetrics_tnr_, 3},
315     {"_ModelMetrics_recall_", (DL_FUNC) &_ModelMetrics_recall_, 3},
316     {"_ModelMetrics_fScore_", (DL_FUNC) &_ModelMetrics_fScore_, 4},
317     {"_ModelMetrics_f1Score_", (DL_FUNC) &_ModelMetrics_f1Score_, 3},
318     {"_ModelMetrics_brier_", (DL_FUNC) &_ModelMetrics_brier_, 2},
319     {"_ModelMetrics_mcc_", (DL_FUNC) &_ModelMetrics_mcc_, 3},
320     {"_ModelMetrics_kappa_", (DL_FUNC) &_ModelMetrics_kappa_, 3},
321     {"_ModelMetrics_mae_", (DL_FUNC) &_ModelMetrics_mae_, 2},
322     {"_ModelMetrics_ce_", (DL_FUNC) &_ModelMetrics_ce_, 2},
323     {"_ModelMetrics_mse_", (DL_FUNC) &_ModelMetrics_mse_, 2},
324     {"_ModelMetrics_msle_", (DL_FUNC) &_ModelMetrics_msle_, 2},
325     {"_ModelMetrics_rmsle_", (DL_FUNC) &_ModelMetrics_rmsle_, 2},
326     {"_ModelMetrics_rmse_", (DL_FUNC) &_ModelMetrics_rmse_, 2},
327     {"_ModelMetrics_gini_", (DL_FUNC) &_ModelMetrics_gini_, 1},
328     {"_ModelMetrics_logLoss_", (DL_FUNC) &_ModelMetrics_logLoss_, 2},
329     {"_ModelMetrics_mlogLoss_", (DL_FUNC) &_ModelMetrics_mlogLoss_, 2},
330     {"_ModelMetrics_plogLoss_", (DL_FUNC) &_ModelMetrics_plogLoss_, 2},
331     {NULL, NULL, 0}
332 };
333 
R_init_ModelMetrics(DllInfo * dll)334 RcppExport void R_init_ModelMetrics(DllInfo *dll) {
335     R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
336     R_useDynamicSymbols(dll, FALSE);
337 }
338