Skip to main content

Browse the archive

https://github.com/cran/cutpointr
12 May 2022, 17:57:49 UTC
Revision 72e43ccd243bf013af304abb3f0083dc3ad90527 authored by Christian Thiele on 18 December 2019, 14:00:08 UTC, committed by cran-robot on 18 December 2019, 14:00:08 UTC 
version 1.0.1
1 parent 030e709
Raw File
Tip revision: 72e43ccd243bf013af304abb3f0083dc3ad90527 authored by Christian Thiele on 18 December 2019, 14:00:08 UTC
version 1.0.1
Tip revision: 72e43cc
is_equal_cpp.cpp 
#include <Rcpp.h>
using namespace Rcpp;

// [[Rcpp::export]]
LogicalVector is_equal_cpp_char(CharacterVector x, String y){
    Rcpp::LogicalVector r(x.size());
    for(int i=0; i<x.size(); i++){
        r[i] = (x[i] == y);
    }
    return(r);
}

// [[Rcpp::export]]
LogicalVector is_equal_cpp_num(NumericVector x, double y){
    Rcpp::LogicalVector r(x.size());
    for(int i=0; i<x.size(); i++){
        r[i] = (x[i] == y);
    }
    return(r);
}
back to top