Вот моя функция начальной загрузки с AUC:
boot.auc = function(formula, data, indices)
{
# Create a bootstrapped version of our data
d = data[indices,]
# Fit a logistic regression to the bootstrapped data
fit = glm(formula, d, family=binomial)
# Compute the AUC and return it
target = as.character(fit$terms[[2]])
rv = my.pred.stats(predict(fit, d, type="response"), d[,target], display=F)
return(rv$auc)
}
Я хочу преобразовать эту функцию в функцию начальной загрузки с помощью BCA. Как мне нужно изменить это ?? Ниже приведена моя модель логистической регрессии:
model_glm = glm(HD ~., family = binomial, data = heart.train)
model_bic = step(model_glm, k = log(length(heart.train$HD)))