Skip to main content
Revision 62a2af802192e86b60cc64dfd458d581a064c0c7 authored by Christian Thiele on 13 April 2018, 12:16:17 UTC, committed by cran-robot on 13 April 2018, 12:16:17 UTC
version 0.7.3
1 parent 94a7e29
Raw File Download
get_rev_dups.cpp
#include <Rcpp.h>
using namespace Rcpp;

// [[Rcpp::export]]
LogicalVector get_rev_dups(NumericVector x) {
  return rev(duplicated(rev(x)));
}