オッズからの見方 1 オッズをながめる記述
オッズのまま眺める
記述:
# hib 繰り返し 比を 各因子 分計算
hib<-NULL
for(j in 1:8) {
hib<-c ( hib, sum( dr[1]*(1-dr[j] ) ) / sum( (1-dr[1]) * (1-dr[j]) ) )
}
# bacr 繰り返し
bacr<-NULL
for(j in 1:8) {
bacr <- c( bacr,sum( dr[1]*dr[j] ) /sum( (1-dr[1]) * (dr[j]) ) )
}
plot(hib,bacr)
text(x=hib,y=bacr,menu)