पिन गलत जवाब देता है

Question

pmin निम्न उदाहरण में उपयुक्त आउटपुट वापस नहीं करता है।

eps <- 1e-16 
x <- structure(list(X = c(0.219801587301587, 0.340792857142857, 0.398129365079365, 
         1, 1, 0.853353968253968, 0.930726984126984, 0.980263131313131, 
         0.968269047619047, 0.953053336369513, 1, 1, 1, 0.951969003219003, 
         0.91514335177894, 0.884824997224998, 0.884824997224998, 0.884824997224998)), row.names = c(NA, 18L), class = "data.frame", .Names = "X") 

pmin(x, 1 - eps) 

समारोह गलत तरीके से NA रिटर्न जहां x का मान 1 यह एक बग के रूप में सूचित किया जाना चाहिए है?

Answer 1

इसलिए मुझे पता चला कि ऐसा इसलिए है क्योंकि xdata.frame है और पिन एक वेक्टर की अपेक्षा कर रहा है। तो निम्न कार्य ठीक:

pmin(x[,1], 1 - eps) 

लेकिन मैं समझने के लिए क्यों यह data.frame के लिए काम नहीं कर रहा था चाहता था। तो निम्नलिखित pmin हमलावर लाइन के लिए कोड से गुजर रहा है:

mmm[change] <- each[change] 

क्योंकि each (इस मामले में 1 - eps) स्थिर करने के लिए संदर्भित करता है और change एक तार्किक वेक्टर each[1] के अलावा और कुछ NA वापस आ जाएगी है। जबकि इस मामले में जहां x एक वेक्टर है पर समारोह की शुरुआत में कार्यान्वित:

if (all(vapply(elts, function(x) is.atomic(x) && !is.object(x), NA))) { 
     mmm <- .Internal(pmin(na.rm, ...)) 
     mostattributes(mmm) <- attributes(elts[[1L]]) 
    } 

कोड ऐसा लगता है का वह भाग के लिए जब pmin के लिए मान वैक्टर हैं इरादा है और उत्तरार्द्ध मामले का ख्याल रखता है जहां आपके पास data.frame हो सकता है, लेकिन यह इस परिदृश्य में विफल रहता है।