// [[Rcpp::export]] LogicalVector sequenceChecker_cpp(CharacterMatrix x){ int nc = x.ncol() ; CharacterVector ns(x.nrow()); CharacterVector Ns(x.nrow()); std::fill(ns.begin(), ns.end(), "n"); std::fill(Ns.begin(), Ns.end(), "N"); LogicalVector out(nc); for(int i=0; i < nc; i++){ out[i] = is_false(any(x(_,i) == Ns)) && is_false(any(x(_,i) == ns)) && unique(x(_,i)).size() != 1; } return out; }