在R中创建数据框

Question

请参阅：Selecting significant cases from a chi-squared test

上述案例中给出的模型示例是：

  f = function(N=1000){
   out <- data.frame("Row" = 1:N
                , "Column" = 1:N
               , "Chi.Square" = runif(N)
               ,  "df"= sample(N, 1:10, replace=T)
                ,  "p.value" = round(runif(N), 3)
               )
  return(out)
  }

但是当我将它应用到我的模型时，我会把它变成：

 f = function(N=7000){
 combos <- combn(ncol(final),2)

 adply(combos, 2, function(x) {
 test <- chisq.test(final[, x[1]], final[, x[2]])

 out <- data.frame("Row" = colnames(final)[x[1]]
               , "Column" = colnames(final[x[2]])
               , "Chi.Square" = round(test$statistic,3)
               ,  "df"= test$parameter
               ,  "p.value" = round(test$p.value, 3)
                  )
return(out)
}}

但是R并没有将此视为已完成的命令行。为什么呢？

Answer 1

给自己一个体面的编辑： - ）

adply(

未关闭。

编辑：也不

function(...){

看起来最终的}应该是) + }