बूटस्ट्रैप त्रुटि
आप एक क्लिनिकल लैब में R प्रोग्रामर के रूप में काम करते हैं. लैब की सांख्यिकीविद अलग-अलग चूहे प्रजातियों के औसत वज़न की रेंज तय करने के लिए बड़े पैमाने पर विश्लेषण कर रही हैं. उन्होंने bootstrap() नाम का एक फ़ंक्शन लिखा है, जिसे weight_list के हर एलिमेंट पर futures बैकएंड का उपयोग करके पैरलल में लागू किया जाता है. हालाँकि, कोड निम्न त्रुटि देता है:
Error in checkForRemoteErrors(val) :
one node produced an error: missing values and NaN's not allowed if 'na.rm' is FALSE
उन्हें weight_list का वह एलिमेंट नहीं मिल रहा जो त्रुटि का कारण बनता है. साथ ही समय लेने वाली गणना के सभी परिणाम भी खो जाते हैं. आपसे कोड ठीक करने को कहा गया है. आपके लिए furrr पैकेज लोड किया गया है और futures के लिए multisession प्लान किया गया है.
यह अभ्यास पाठ्यक्रम का हिस्सा है
R में पैरेलल प्रोग्रामिंग
अभ्यास निर्देश
- कर्ली ब्रेसेज़ में दिए गए कोड को ऐसे फ़ंक्शन को दें जो त्रुटि पकड़ सके.
errorआर्ग्युमेंट के लिए ऐसा फ़ंक्शन दें जो एक आर्ग्युमेंटeले और स्ट्रिंग"Error here!"लौटाए.weight_listके सभी एलिमेंट्स परbootstrap()को किसीfurrrफ़ंक्शन से मैप करें.
इंटरैक्टिव व्यावहारिक अभ्यास
इस अभ्यास को इस नमूना कोड को पूरा करके आज़माएँ।
bootstrap <- function (x) {
# Supply code to a function for catching errors
___({est <- rep(0, 1e3)
for (i in 1:1e3) {
b <- sample(x, replace = T)
est[i] <- mean(b)
}
return(quantile(est, c(0.25, 0.75)))
# Supply a function that returns a string
}, error = ___
)
}
# Map bootstrap() to every element of weight_list
___(___, ___)
plan(sequential)