Monty Hall problem: Difference between revisions
m
→{{header|Stata}}
Line 3,749:
<lang stata>clear
set obs 1000000
gen
gen choice1=runiformint(1,3)
gen succ1=
gen shown=cond(succ1,runiformint(1,2),6-
replace shown=shown+1 if succ1 & (
gen choice2=6-shown-choice1
gen succ2=
tabstat succ1 succ2, s(mean)</lang>
|