sessions.cpp

//Includes/namespaces
#include <Rcpp.h>
using namespace Rcpp;

// Recursive session counting function
// [[Rcpp::export]]
int session_count(NumericVector x, int local_minimum) {
  
  //Create output object
  int count;
  
  //If there's only one value in x (perfectly possible - this is designed to be recursive) return as such
  if(x.size() == 1){
    
    count = 1;
    return count;
    
  }
  
  //Otherwise, loop
  for(int i = 0; i < x.size(); ++i) {
    
    //If the value is greater than the local minimum
    if(x[i] > local_minimum){
      
      //Increment the count
      count += 1;
      
    }
    
  }
  
  //Return
  return count;
}