如何R中

Question

做出chisq.test（）的參數，我有以下的數據幀：

DF

User Feature1 Feature2 Num 
name1 a   x1   12 
name1 a   x2   3 
name1 a   x3   7 
name1 b   x2   3 
name2 a   x2   8 
name2 b   x3   7 
name2 c   x2   3 

...

第一行EXP：用戶「name1」從「a」連接到「x1」12次。

我想爲每個用戶（考慮到連接數）在M1到M2之間創建一個chisq.test（）表。

輸出表中的行數應該等於數據框中的用戶數量。

謝謝！

Answer 1

與數據例子的問題是，如果chisq.test任何行或列總和返回NA爲0

by(df[-1], df[[1]], function(d) { 
       tbl <- xtabs(Num ~ Feature1 + Feature2, data=d) 
       i <- apply(tbl, 1, sum) > 0 
       j <- apply(tbl, 2, sum) > 0 
       chisq.test(tbl[i,j])}) 
#-------- result ---------- 
df[[1]]: name1 

    Pearson's Chi-squared test 

data: tbl[i, j] 
X-squared = 10.7955, df = 2, p-value = 0.004527 

---------------------------------------------------------------- 
df[[1]]: name2 

    Pearson's Chi-squared test 

data: tbl[i, j] 
X-squared = 18, df = 2, p-value = 0.00