最近在看《R语言实战》看到第九章,运行代码清单9-3的时候,运行结果和书上不同,并且报错
图1 书上的原文
图2 运行结果1
图3 运行结果2
> aggregate(weight, by=list(dose), FUN=mean)
Error in aggregate.data.frame(as.data.frame(x), ...) : 参数的长度必需一样
> fit <- aov(weight ~ gesttime + dose)
Error in model.frame.default(formula = weight ~ gesttime + dose, drop.unused.levels = TRUE) :
变数的长度不一样('dose')
>
> library(effects)
lattice theme set by effectsTheme()
See ?effectsTheme for details.
> effect("dos