格式化自定义摘要输出以与R中的方差分析输出匹配

我是R的新手。我们有一项任务我正在做。任务是创建R包来模拟Anova表。我已经创建了任务中规定的所有必要功能。该函数计算正确的值，但我无法使其显示为R内置的ANOVA（）函数所能显示的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  
}

---

summary.oneway方差分析输出使用打印方法
print.Anova
您可能需要查看
methods（print）
，特别是
stats:：print.Anova

您很可能希望创建自己的打印功能

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

print.one谢谢你给我指明了正确的方向。我确实有你提到的打印功能，但它仍然在打印列表。我使用printCoefmat（）并提供data.frame作为参数，效果很好。很高兴它有所帮助。您还可以修改
类（obj）
，以便使用适当的
打印方法。
Analysis of Variance Table

Response: coag
          Df Sum Sq Mean Sq F value    Pr(>F)    
diet       3    228    76.0  13.571 4.658e-05 ***
Residuals 20    112     5.6                      
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
 print.oneway <- function(object, ...) {
     foo
     bar
 }