Update cv.R

drop=FALSE