我的目标是将模型保存为 R Shiny 应用程序的输入对象,然后为新主题,在应用程序中插入输入,并计算预测概率和相关的 95% CI(或预测区间)。
我做了以下操作来保存模型。
RF.up.samp <- train(PTDCategory_12m ~ X1 + X2 + X3 + X4 + X5 + X6, method = "ranger",
data = training.data,
metric = "ROC",
trControl = trainControl(method = "boot",
sampling = "up",
#savePredictions = TRUE,
summaryFunction = twoClassSummary,
classProbs = TRUE), na.action=na.exclude)
saveRDS(RF.up.samp, "./final_model.rds")
但是我只能使用每个类type="prob"
的函数中的选项来获得预测概率。predict()
如何获得预测概率的 95% CI,例如,[p.hat.lower, p.hat.upper]
?