Content - 5ddd7617f09e42b0041cf67d9f174f1eed3bca25 - 9342c2f/src/get_rev_dups.cpp

visit type:

Tip revision: 7e56c827a694247d212e9a0167a119f917e1f31b authored by Christian Thiele on 31 August 2018, 15:50:10 UTC
version 0.7.4

Tip revision: 7e56c82

get_rev_dups.cpp

#include <Rcpp.h>
using namespace Rcpp;

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