Content - 5ddd7617f09e42b0041cf67d9f174f1eed3bca25 - 92bbe38/src/get_rev_dups.cpp

visit type:

Tip revision: 2900dc24d2c5a7d8fdb3f1abb1540fb704e51742 authored by Christian Thiele on 15 February 2021, 13:40:03 UTC
version 1.1.0

Tip revision: 2900dc2

get_rev_dups.cpp

#include <Rcpp.h>
using namespace Rcpp;

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