用R语言模拟扔3个骰子,扔出后3个骰子的相乘的值小于90的概率,至少模拟10万次求概率

5592

收藏 2018-09-17

R语言小白，
dice<-function(){
result<-1
for(i in 1:3){
result<-result*sample(1:6,1)
if(result<90) return(TRUE)
}
}
mean(replicate(10000, dice()))
大佬麻烦看一下这个为什么输出出来一直是1呢

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

我罩着太阳

2018-9-17 23:42:18

dice<-function(){
  result<-1
  for(i in 1:3){
result<-result*sample(1:6,1)

  }
  if(result<90) return(1)
  else return(0)
}
n=10000
mean(replicate(10000, dice()))

最重要的是你的if语句要在三个相乘的result计算出来之后才能判断是否大于90
然后我加了n这个变量，这样更改次数方便一些