mydata<-read.csv("D:/paperwriting/工作簿1.csv")
head(mydata)
attach(mydata)
log.fit<glm(N~bomana+bomanb+bomanc+bomand+sex+TIA+TII+TIII+TIB+TIVA,  family=binomial)
cost<-function(r,pi=0)
       mean(abs(r-pi)>0.5)
(cv.err<-cv.glm(mydata,log.fit,cost,K=10)$delta)
程序运行后，出现了警告:“in  r-pi:长的对象长度不是短的对象长度的整倍数。”实在不理解这句话到底怎么破，求大神解救。