मैं प्रेडिक्शन पैकेज के फंक्शन prediction_summary() का उपयोग करना चाहता हूं और कॉन्फिडेंस इंटरवल लेंथ को एडजस्ट करना चाहता हूं। हालांकि, ऐसा लगता है कि स्तर विनिर्देश कोई फर्क नहीं पड़ता। क्या मुझसे यहां कुछ गलत हो रहा है?

प्रतिलिपि प्रस्तुत करने योग्य उदाहरण:

# Make data
DF <- data.frame(
    x = rnorm(n= 100, 20,3),
    y = rbinom(n = 100, size = 1, prob=0.4)
)

# Specify model
model <- glm(x ~ y, data = DF)

# Prediction
prediction::prediction_summary(
  model = model, 
  level = 0.2
  )

# Same result
prediction::prediction_summary(
  model = model, 
  level = 0.9
  )
r
1
Poza 25 जून 2021, 02:45

1 उत्तर

सबसे बढ़िया उत्तर

समस्या स्रोत कोड से संबंधित है

library(prediction)
prediction_summary
function (model, ..., level = 0.95) 
{
    predictions <- prediction(model, ...)
    summary(predictions, level = 0.95)
}

ध्यान दें कि level को summary में 0.95 के रूप में हार्ड-कोड किया गया है। हम इनपुट को level = level यानी उपयोगकर्ता निर्दिष्ट स्तर के रूप में लेने के लिए summary लाइन को संशोधित करके सुधार कर सकते हैं

body(prediction_summary)[[3]] <- quote(summary(predictions, level = level))

अब, परीक्षण करें

> prediction_summary(
+   model = model, 
+   level = 0.9
+   )
 Prediction     SE     z p lower upper
      19.96 0.3178 62.81 0 19.44 20.49
> prediction_summary(
+   model = model, 
+   level = 0.2
+   )
 Prediction     SE     z p lower upper
      19.96 0.3178 62.81 0 19.88 20.04
4
akrun 25 जून 2021, 03:07