bank  <- read.csv("bank-additional.csv",header=T,sep=";")
mix19 <- dudi.mix(bank[,-20], add.square = FALSE, scannf = TRUE)
fit <- glm(bank$y~l.rs1+l.rs2+l.rs3+l.rs4+l.rs5+l.rs6+l.rs7+l.rs8+l.rs9+l.rs10+
                  l.rs11+l.rs12+l.rs13+l.rs14+l.rs15+l.rs16+l.rs17+l.rs18+l.rs19+
                  l.rs20+l.rs21+l.rs22+l.rs23+l.rs24+l.rs25,
           family=binomial(link=logit))
summary(fit)

fit19 <- glm(bank$y~l.rs1+l.rs3+l.rs5+l.rs10+l.rs11+l.rs14,
             family=binomial(link=logit))
summary(fit19)

library(DAAG)

fit19 <- glm(bank$y~l.rs1+l.rs3+l.rs5+l.rs10+l.rs11+l.rs14,
             family=binomial(link=logit))

cv19 = cv.binary(fit19, nfolds=15, print.details=T)
Error in sample.int(length(x), size, replace, prob) : invalid "size" argument

cv19 = cv.glm(data=data.frame(mix19$li, bank$y), glmfit=fit19, k=15)

error in cv.glm(data = data.frame(mix19$li, bank$y), glmfit = fit19, k = 15) :
 invalid parameter(k = 15)