cross validation logistic regression r