AMR/src/rsi_calc.cpp

#include <Rcpp.h>
// #include <functional> // for std::less_equal and std::greater_equal
// #include <algorithm>  // for count_if

using namespace Rcpp;

// [[Rcpp::export]]
int rsi_calc_S(DoubleVector x, bool include_I) {
  return count_if(x.begin(),
                  x.end(),
                  bind2nd(std::less_equal<double>(),
                          1 + include_I));
}

// [[Rcpp::export]]
int rsi_calc_R(DoubleVector x, bool include_I) {
  return count_if(x.begin(),
                  x.end(),
                  bind2nd(std::greater_equal<double>(),
                          3 - include_I));
}