1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
#include <Rcpp.h>
// [[Rcpp::export]]
double sumTest(Rcpp::NumericVector v, int begin, int end) {
return Rcpp::algorithm::sum(v.begin() + (begin - 1), v.begin() + end);
}
// [[Rcpp::export]]
double sumTest_nona(Rcpp::NumericVector v, int begin, int end) {
return Rcpp::algorithm::sum_nona(v.begin() + (begin - 1), v.begin() + end);
}
// [[Rcpp::export]]
double prodTest(Rcpp::NumericVector v, int begin, int end) {
return Rcpp::algorithm::prod(v.begin() + (begin - 1), v.begin() + end);
}
// [[Rcpp::export]]
double prodTest_nona(Rcpp::NumericVector v, int begin, int end) {
return Rcpp::algorithm::prod_nona(v.begin() + (begin - 1), v.begin() + end);
}
// [[Rcpp::export]]
Rcpp::NumericVector logTest(Rcpp::NumericVector v) {
Rcpp::NumericVector x = Rcpp::clone(v);
Rcpp::algorithm::log(v.begin(), v.end(), x.begin());
return x;
}
// [[Rcpp::export]]
Rcpp::NumericVector expTest(Rcpp::NumericVector v) {
Rcpp::NumericVector x = Rcpp::clone(v);
Rcpp::algorithm::exp(v.begin(), v.end(), x.begin());
return x;
}
// [[Rcpp::export]]
Rcpp::NumericVector sqrtTest(Rcpp::NumericVector v) {
Rcpp::NumericVector x = Rcpp::clone(v);
Rcpp::algorithm::sqrt(v.begin(), v.end(), x.begin());
return x;
}
// [[Rcpp::export]]
double minTest(Rcpp::NumericVector v) {
return Rcpp::algorithm::min(v.begin(), v.end());
}
// [[Rcpp::export]]
double maxTest(Rcpp::NumericVector v) {
return Rcpp::algorithm::max(v.begin(), v.end());
}
// [[Rcpp::export]]
double minTest_nona(Rcpp::NumericVector v) {
return Rcpp::algorithm::min_nona(v.begin(), v.end());
}
// [[Rcpp::export]]
double maxTest_nona(Rcpp::NumericVector v) {
return Rcpp::algorithm::max_nona(v.begin(), v.end());
}
// [[Rcpp::export]]
int minTest_int(Rcpp::IntegerVector v) {
return Rcpp::algorithm::min(v.begin(), v.end());
}
// [[Rcpp::export]]
int maxTest_int(Rcpp::IntegerVector v) {
return Rcpp::algorithm::max(v.begin(), v.end());
}
// [[Rcpp::export]]
int minTest_int_nona(Rcpp::IntegerVector v) {
return Rcpp::algorithm::min_nona(v.begin(), v.end());
}
// [[Rcpp::export]]
int maxTest_int_nona(Rcpp::IntegerVector v) {
return Rcpp::algorithm::max_nona(v.begin(), v.end());
}
// [[Rcpp::export]]
double meanTest(Rcpp::NumericVector v) {
return Rcpp::algorithm::mean(v.begin(), v.end());
}
// [[Rcpp::export]]
double meanTest_int(Rcpp::IntegerVector v) {
return Rcpp::algorithm::mean(v.begin(), v.end());
}
// [[Rcpp::export]]
double meanTest_logical(Rcpp::LogicalVector v) {
return Rcpp::algorithm::mean(v.begin(), v.end());
}
|
