フィッシャー正確なテストの助けを借りてマトリックスを作る

Question

私は2年生のM.Sc生で、私の統計を走らせるにはちょっとした問題があります。

私はcontingencyテーブルとFishersテストを実行しようとしていますが、エラーが発生し続けます。 fisher.testで

エラー（GAL4UAS）： 'x' は行列でない場合は、 'Y' は、誰もが私が間違ってやっていることを確認できた場合は/ Iを欠落している可能性があり

を与えられなければなりません本当にそれを感謝しますか？

これはコードである：

setwd("/Users/Pria/Desktop/Data Analysis/") 

GAL4UAS <-- data.frame(Yes=c(20,21,19),No=c(10,9,11)) 

GAL4UAS <- lapply(GAL4UAS, abs) 

fisher.test(GAL4UAS) 

fisher.test(GAL4UAS[c(1,2)]) 

fisher.test(GAL4UAS[c(1,3)]) 

Answer 1

fisher.test()を入力としないデータフレームとして行列を予想されます。データを行列に入れてみてください。いくつかの間に1つのオプションは、次のようになります。

m <- matrix(c(20,21,19,10,9,11),nrow = 3,ncol=2,byrow=FALSE) 
fisher.test(m) 

Answer 2

あなたが腹筋を適用すると（）lapply出力を使用して、リストではなくdata.frameです。 apply関数は、出力をfisher.test（）で期待される行列形式で返します。だから多分これを試すことができます：

GAL4UAS <- data.frame(Yes=c(20,21,19),No=c(10,9,11)) 

GAL4UAS <- apply(GAL4UAS, abs, MARGIN=c(1,2)) 

fisher.test(GAL4UAS)