correct 各セルに 0.5 を加える(a, b, c, d のどれかが 0 のときには自動的に 0.5 を加える) ソース インストールは,以下の 1 行をコピーし,R コンソールにペーストする source("http://aoki2.si.gunma-u.ac.jp/R/src/odds_ratio.R", encoding="euc-jp") # オッズ比を計算する odds.ratio <- function( a, b, c, d, # 4 つのセルの観察値 correct=FALSE) # 補正をするとき TRUE にする { cl <- function(x) { or*exp(c(1, -1)*qnorm(x)*sqrt(1/a+1/b+1/c+1/d)) } if (correct || a*b*c*d == 0) { # a,b,c,d のいずれかが 0 のときに