计算Fisher在数据帧行

Question

我在数据框中有1700个样本的列表，其中每行代表每个助手在来自不同盒子的随机数量的样本中计算的彩色项目的数量。有两种可用颜色和两个人计算项目，因此可以轻松创建一个2x2列联表。

df
Box-ID  1_Red  1_Blue  2_Red  2_Blue
1       1075   918     29     26
2       903    1076    135    144

我想知道如何将每一行视为一个连续表（矢量或矩阵）以执行卡方检验（如Fisher's或Barnard's）并生成具有p值的第六列。 这是我到目前为止所尝试的，但我不确定它是否正确

df$p-value = chisq.test(t(matrix(c(df[,1:4]), nrow=2)))$p.value 

Answer 1

我认为你可以做这样的事情

apply plugin: 'c'

model {
    components {
            main(NativeExecutableSpec) {
                    sources {
                        c {
                            source {
                                srcDir "./"
                                include "*.c"
                            }
                        }
                    }
            }
    }
}