ポスト

# データの作成 a <- 8 b <- 12 c <- 13 d <- 7 # 合計 n <- sum(a, b, c, d) # 分割表を生成 table <- matrix(c(a, b, c, d), nrow = 2) # フィッシャーの正確検定の確率を手動で計算 prob <- (choose(a + b, a) * choose(c + d, c)) / choose(n, a + c) print(prob)

メニューを開く

kamokita@kamokita1

人気ポスト

もっと見る
Yahoo!リアルタイム検索アプリ