создать фрейм данных в R

Question

см .: Выбор значимых случаев из теста хи-квадрат

Пример модели, приведенный в приведенном выше случае:

  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(...){

Похоже на финал } действительно должен быть ) + }