從「by」對象提取摘要和ANOVA等輸出

Question

我有用by創建的迴歸模型。我知道我可以使用sapply爲每個因素提取模型的特定部分，但如果我想要整個summary,anova等等，該怎麼辦？

model <- with(data, by(data, factor, function(data) lm(y ~ x, data=data))) 

Answer 1

sapply將強制的summary.lm和anova.lm結果，以一個矩陣。我想你可能想要使用lapply，它在由by生成的列表中的每個元素上應用函數（這裏是summary），並返回一個列表。

models <- by(warpbreaks, warpbreaks$tension, function(x){ 
    lm(breaks ~ wool, data = x) 
    }) 

lapply(models, summary)