У меня проблемы с условностями в Rcpp. Лучший способ объяснить мою проблему - это на примере.

z <- seq(from=1,to=10,by=0.1)
z[c(5,10,15,20,40,50,80)] <- NA
src <- '
 Rcpp::NumericVector vecz(z);
 for (int i=0;i<vecz.size();i++) {
   if (vecz[i] == NA_REAL) {
     std::cout << "Here is  a missing value" << std::endl;
   }
  }
'
func <- cxxfunction(signature(z="numeric"),src,plugin="Rcpp")
func(z)
# NULL

Из моего понимания,NA_REAL представляет значения NA для действительных значений в Rcpp иNA_Integer представляет значения NA для целых чисел. Я не уверен, почему приведенное выше условие никогда не возвращает истину, учитываяz.