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