https://github.com/cran/cutpointr
Tip revision: 2900dc24d2c5a7d8fdb3f1abb1540fb704e51742 authored by Christian Thiele on 15 February 2021, 13:40:03 UTC
version 1.1.0
version 1.1.0
Tip revision: 2900dc2
one_unique.cpp
#include <Rcpp.h>
using namespace Rcpp;
// [[Rcpp::export]]
LogicalVector one_unique_num(NumericVector x) {
int n = x.size();
double first_val = x[0];
for(int i = 1; i < n; ++i) {
if (x[i] != first_val) return false;
}
return true;
}
// [[Rcpp::export]]
LogicalVector one_unique_char(CharacterVector x) {
int n = x.size();
String first_val = x[0];
for(int i = 1; i < n; ++i) {
if (x[i] != first_val) return false;
}
return true;
}