age25 = subset(juul,juul [,“age”]> 25.00)##创建年龄大于25的子集modelgf = LM(age25 [ “IGF1”]〜age25 [, “年龄”])age20 =子集(Juul的,Juul的[, “年龄”] LT; 20.00)modelgf2 = LM(age20 [ “IGF1”]〜age20 [,“…
干得好:
# Dummy for Age>25 juul[,"ageCat25"] <- juul[,"ageCat"] > 25.00 # Collinear dummy for Age<20 juul[,"ageCat20"] <- ifelse(!juul[,"ageCat25"] & juul[,"age"]<20.00, TRUE, juul[,"ageCat25"]) m1 <- lm(foo ~ ageCat25, juul) m2 <- lm(foo ~ ageCat20, juul) anova(m1,m2)
解释留给OP。