Content - 5ddd7617f09e42b0041cf67d9f174f1eed3bca25 - 8191cef/src/get_rev_dups.cpp

Tip revision: 4408233eb8624dea85ecf18e86d50c296165c3f2 authored by Christian Thiele on 13 April 2022, 17:12:29 UTC
version 1.1.2

Tip revision: 4408233

get_rev_dups.cpp

#include <Rcpp.h>
using namespace Rcpp;

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