■　論理式の「そのまま記述」
　観察値；固定度数は、データから次により読みだして、決めることができる
　sに曝露したとき、
　　　s=１
　とする場合、曝露していないものは、
　　　1-s
　としてカウントできる.論理式をそのまま式に入れて計算できる.
　また、
s0
　a0<-sum((1-dr[,"sake"])*(dr[,"y"])*dr[,"tam"])
　b0<-sum((1-dr[,"sake"])*(dr[,"y"])*(1-dr[,"tam"]))　 
　c0<-sum((1-dr[,"sake"])*(1-dr[,"y"])*dr[,"tam"])
　d0<-sum((1-dr[,"sake"])*(1-dr[,"y"])*(1-dr[,"tam"]))
s1
a1<-sum((dr[,"sake"])*(dr[,"y"])*dr[,"tam"])
　b1<-sum((dr[,"sake"])*(dr[,"y"])*(1-dr[,"tam"]))
　c1<-sum((dr[,"sake"])*(1-dr[,"y"])*dr[,"tam"])
　d1<-sum((dr[,"sake"])*(1-dr[,"y"])*(1-dr[,"tam"]))