controlObject <- trainControl(method = 'repeatedcv', # cross validation 반복 시행
repeats = 2, # 2번 시행
number = 5, # training 자료를 10조각 냄
classProbs = T)
lda_Model <- train(Class ~ .,
data = Train_dat,
method = 'lda2',
preProc = c('center', 'scale'),
metric = 'Kappa',
tuneLength = 2,
trControl = controlObject)
lda_Model