怎么样用r语言计算一次掷六个骰子中出现4的次数

Question

是这样的，我在编写一个随机掷骰子的函数，但是我不清楚怎么写if里的条件:以上随机掷的六个骰子中，出现4的次数等于1。后面都是以此列推的

Answer 1

需要循环遍历一下每个骰子点数，并计数。比如统计出现4的次数，代码如下，其他类似：

dice.sum=function(n.dice){
    dice<-sample(1:6,size=n.dice,replace=TRUE)
    n<-0
    print(dice)
    for(i in 1:n.dice)
    {if(dice[i]==4)
    n=n+1}
    return(n)

}
dice.sum(6)