idx <- c(1, 3, 5) #假设你要1、3、5这三个variables
my_formula <-
as.formula(paste("Classkd ~ ", paste(colnames(training.data)[idx],
collapse = "+")))
剩下来的就是把你的logistic function里面的formula改成上面这个就好了