controlObject<-trainControl(method='repeatedcv',# cross validation 반복 시행repeats=2,# 2번 시행number=5,# training 자료를 10조각 냄classProbs=T)
모형 학습
Knn_Model<-train(Class~.,data=Train_dat,method='knn',preProc=c('center','scale'),metric='Kappa',tuneGrid=data.frame(.k=1:10),# tuning parameter가 하나이기 때문에 data frame으로 바로 넣을 수 있음trControl=controlObject)Knn_Model