R里的逻辑索引

#实例1
library(ISLR)
attach(Auto)
mpg01 = rep(0, length(mpg))
# mpg>median(mpg)会产生和length(mpg)相同长度的true/false
# 然后当做索引
mpg01[mpg>median(mpg)] = 1
Auto = data.frame(Auto, mpg01)
detach(Auto)

#实例2
glm.pred = rep(0, length(glm.probs))
# glm.probs > 0.5也是返回等长度的TRUE、FALSE
glm.pred[glm.probs > 0.5] = 1
mean(glm.pred != test$mpg01)