【问题描述】
运行《R语言编程艺术》第95页的代码“5.4.2 扩展案例:应用Logistic模型”的代码时,报错“Error in eval(family$initialize) : y values must be 0 <= y <= 1”
【解决方法】
加上一句代码:aba$M <- as.factor(aba$M)
之后,《R语言编程艺术》第95页的代码“5.4.2 扩展案例:应用Logistic模型”的完整代码如下:
aba <- read.csv("abalone.data",header=T)
aba$M <- as.factor(aba$M)
abamf <- aba[aba$M != "I",] # exclude infants from the analysis
lftn <- function(clmn) {
glm(abamf$M ~ clmn, family=binomial)$coef
}
loall<-sapply(abamf[,-1],lftn)
loall