R中的包装函数

Question

以下代码包含五个功能。当运行wrapTables时，仅输出t表？如何确定每个表的输出标题，例如“卡方表”后跟概率卡方表？谢谢。

MM

wrapTables <- function() {
chistable()
ftableb()
normtab()
poissontable2()
ttable()
}

wrapTables() 

Answer 1

考虑返回一个包含每个函数输出的命名列表：

wrapTables <- function() { 
   list(Chi_Square_Table = chistable(),
        F_Table = ftable(),
        Norm_Table = normtab(),
        Poisson_Table = poissontable2(),
        T_table = ttable()
   )
}

然后，为此函数分配的任何对象将具有相应命名的元素：

output <- wrapTables()

output$Chi_SquareTable
output$F_Table
output$Norm_Table
...

或全部但以列表格式显示：

output