Displaying 1 result from an estimated 1 matches for "myloocv".
Did you mean:
loocv
2013 Oct 18
0
Logistic regression over LOOCV
Hello all.
I have this code:
myLOOCV <- function(myformula, data) {
Y <- all.vars(myformula)[1]
Scores<- numeric(length(data[,1]))
for (i in 1:length(data[,1])) {
train <- data[-i,]
test <- data[i,]
myModel <- lrm(myformula, train)
Scores[i] <- predict(myModel, test,type...