Content - 5ddd7617f09e42b0041cf67d9f174f1eed3bca25 - def1189/src/get_rev_dups.cpp

visit type

Tip revision: 030e7096a6bb7c391a35b49ac6eea87ad3b6027a authored by Christian Thiele on 17 September 2019, 20:30:02 UTC
version 1.0.0

Tip revision: 030e709

get_rev_dups.cpp

#include <Rcpp.h>
using namespace Rcpp;

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