Fisher’s精确检验

This is a Fisher’s test for matrix data

df <- matrix( c(164, 37, 66, 26,88,19,48,55), nr = 4,dimnames = list(c( "1", "2", "3","4"),c("training", "validation")) )

Warning message:
In strsplit(x, "\n") : input string 1 is invalid in this locale

df

  training validation
1      164         88
2       37         19
3       66         48
4       26         55

chisq.test(df)

    Pearson's Chi-squared test

data:  df
X-squared = 29.026, df = 3, p-value = 2.212e-06