Блог

Я попытался создать таблицу с тремя переменными. Теперь я хочу выполнить хи-квадрат для обоих выходов. Как мне выполнить хи-квадрат на выходе, , = 1 и снова на выходе , , = 2?

 > emphasis<-table(Pilot$emphasis.GI, Pilot$emphasis.race, Pilot$required.learning)
> emphasis
, ,  = 1

   
     2  3  4
  2 11  5  0
  3  2  8  0
  4  0  0  0

, ,  = 2

   
     2  3  4
  2  0  0  0
  3  0  2  0
  4  0  0  1
 

Это 3D array . Мы можем использовать apply MARGIN = 3 и применять тест

 apply(emphasis, 3, chisq.test)
 

Или используйте for цикл

 out <- vector('list', dim(emphasis)[3])
for(i in seq_along(out)) out[[i]] <- chisq.test(emphasis[,, i])
 

Вы можете попробовать asplit третье измерение и выполнить chisq.test с Map

 Map(chisq.test,asplit(emphasis, 3))