格式化自定义摘要输出以与R中的ANOVA输出相匹配

Question

我是R的新手。我们正在处理一项任务。该任务是创建R包以模拟Anova表。我已经创建了任务中规定的所有必要功能。该函数计算正确的值，但我不能让它像ANOVA表那样显示，因为R内置在ANOVA()函数中。这是我的总结。新功能

summary.oneway <- function(object, ...){
#model <- oneway(object)
fval <- object$FValue
TAB <- list(t(object$AOV), "Mean Sq."= rbind(object$MSB, object$MSW),
"F Value" = fval, p.value = object$p.value)
res <- list(call=object$call, onewayAnova = TAB)
class(res) <- "summary.oneway"
res  
}

这是输出：

方差分析：oneway.公式(公式=coag~饮食，数据=coagdata)[[1]]平方和自由度饮食228 3剩余112 20$`平均平方米`1.[1，]76.0[2，]5.6$`F值`1.13.57143每股价值美元1.4.658471e-05

实际ANOVA输出：

方差分析表回复：coagDf总和Sq平均Sq F值Pr(>F)饮食3 228 76.0 13.571 4.658e-05***残差20 112 5.6---签名。代码：0’***’0.001’**’0.01’*’0.05’0.1''1

如何实现此格式？我在哪里错过了什么？

非常感谢你的帮助。

Kuni

Answer 1

Anova输出使用打印方法print.anova，您可能希望查看methods(print)，特别是stats:::print.anova

您很可能想要创建自己的打印功能

print.oneway <- function(object, ...) {
foo
bar
}