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

Tip revision: 6e80c4af4079c6a0a017445fed21d2dc5be27f97 authored by Christian Thiele on 10 December 2024, 22:50:02 UTC
version 1.2.0

Tip revision: 6e80c4a

get_rev_dups.cpp

#include <Rcpp.h>
using namespace Rcpp;

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