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