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

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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呢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

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这个变量，这样更改次数方便一些

1. dice <- function(){
   
2.   result <- sample(1:6, 3, replace = TRUE)
   
3.   a <- result[1] * result[2] * result[3]
   
4.   ifelse( a < 90, 1, 0)
   
5.   }

复制代码

不用for 循环语句写的，运行效率好像比for的快一些。

1. mean(sapply(1:100000, function(i) prod(sample(1:6, 3, replace = TRUE)) < 90))

复制代码