R言語はLogistic回帰の5割引交差検証を実現する

最近宿題をする時Logistic回帰の交差検証をする必要があって、ここで記録しておきます
まずデータセットを分割し、caretパケットの関数を使用してデータを分割し、クロス検証+logistic回帰クロス検証を行います.

 library(plyr)
library(caret)
folds 0.5   1，    0
 predict =ifelse(predict.pre>0.5,1,0)
 #          
 test_cv$predict = predict
 
 ##    
 res