y1 = c(60, 30, 10)
y2 = c(50, 40, 10)
calc_doorprob(y1, y2)
## DOOR probability
## 0.545
p1 = c(.6, .3, .1)
p2 = c(.5, .4, .1)
calc_doorprob(p1, p2, data_type = "prop")
## DOOR probability
## 0.545
Run the code above in your browser using DataLab