Rcpp से NA लौटें

Question

मैं Rcpp के माध्यम से NA लौटने की कोशिश कर रहा हूं। मुझे समझ में नहीं आ रहा है कि get_na()इस पोस्ट में सुझाए गए अनुसार यहाँ काम क्यों नहीं करता है ?

> Rcpp::cppFunction('NumericVector temp1() {
   return NumericVector::get_na();
 }')
> temp1()
Error in temp1() : negative length vectors are not allowed

अगर मैं कोशिश create()करता हूं तो यह काम करता है।

> Rcpp::cppFunction('NumericVector temp2() {
    return NumericVector::create(NA_REAL);
  }')
> temp2()
  NA

Answer 1

आपको कुछ करने की आवश्यकता है:

Rcpp::cppFunction('NumericVector temp1() {
  NumericVector y(1);
  y[0] = NumericVector::get_na();
  return y;
}')

temp1()
#R> [1] NA

यदि आप उपयोग करना चाहते हैं NumericVector::get_na()। ध्यान दें कि यह सदस्य फ़ंक्शन केवल NA_REALइसलिए लौटाता है, जिसके कारण आपको संभावित रूप से NumericVectorनिर्माता के साथ त्रुटि मिलती है :

Rcpp::cppFunction('NumericVector temp1() {
   return NumericVector::get_na();
 }')

NumericVector::createजैसा कि आप सुझाव देते हैं आप उतना ही उपयोग कर सकते हैं। आप भी कर सकते हैं:

Rcpp::cppFunction('NumericVector temp2() {
  return NumericVector(1, NA_REAL);
}')

या

Rcpp::cppFunction('double temp3() {
  return NA_REAL;
}')

Rcpp से NA लौटें

यदि आप अन्य प्रकार के वैक्टर के साथ काम कर रहे हैं तो NumericVectorतत्कालीन get_naकार्य बहुत उपयोगी हो सकता है। यहां एक उदाहरण है जहां हम NA लौटते हैं लेकिन इनपुट के आधार पर विभिन्न प्रकारों के साथ।

Rcpp::sourceCpp(code = '
  #include "Rcpp.h"
  using namespace Rcpp;
  
  template<int T>
  Vector<T> get_na_genric(){
    return Vector<T>(1, Vector<T>::get_na());
  }
  
  // [[Rcpp::export]]
  SEXP get_nan_vec(SEXP x) {
    switch (TYPEOF(x)) {
      case INTSXP : return get_na_genric<INTSXP >();
      case LGLSXP : return get_na_genric<LGLSXP >();
      case REALSXP: return get_na_genric<REALSXP>();
      case STRSXP : return get_na_genric<STRSXP >();
      case VECSXP : return get_na_genric<VECSXP >();
      stop("type not implemented");
    }
    
    return get_na_genric<REALSXP>();
  }')

for(x in list(integer(), logical(), numeric(), character(), 
              list())){
  out <- get_nan_vec(x)
  cat("got:\n")
  print(out)
  cat("with type ", typeof(out), "\n")
}
#R> got:
#R> [1] NA
#R> with type  integer 
#R> got:
#R> [1] NA
#R> with type  logical 
#R> got:
#R> [1] NA
#R> with type  double 
#R> got:
#R> [1] NA
#R> with type  character 
#R> got:
#R> [[1]]
#R> NULL
#R> 
#R> with type  list