用R语言实验验证经典概率问题：The Monty Hall problem

楼主叙述蒙提霍尔问题的时候，少了一个条件，即主持人知道哪扇门后面没有汽车，由主持人打开的门都是没有汽车的门。这样的话就能直接用全概率公式推出来了

以下是根据Gary Hall 2020年关于“Quantitative Methods for Social Sciences Research”的视频讲解改编的代码（只改了其中一句）。这个似乎更精炼，跑出的结果是一样的。

1. sims<-1000; WinNoSwitch<-0; WinSwitch<-0; doors<-c(1,2,3)
   
2. for (i in 1:sims){
   
3.   WinDoor<-sample(doors, 1)
   
4.   choice<-sample(doors, 1)
   
5.   if (WinDoor == choice)
   
6.     WinNoSwitch <- WinNoSwitch + 1
   
7.   if (WinDoor !=choice)
   
8.     WinSwitch <- WinSwitch+1
   
9. }
   
10. cat("Prob(Car | no switch)=", WinNoSwitch/sims)
    
11. cat("Prob(Car | switch)=", WinSwitch/sims)

复制代码