R语言错误“Error in eval(family$initialize) : y values must be 0 ＜= y ＜= 1”解决方法

【问题描述】
运行《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