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

是这样的，我在编写一个随机掷骰子的函数，但是我不清楚怎么写if里的条件:以上随机掷的六个骰子中，出现4的次数等于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)

您好，我是有问必答小助手，您的问题已经有小伙伴帮您解答，感谢您对有问必答的支持与关注！
PS：问答VIP年卡 【限时加赠：IT技术图书免费领】，了解详情>>> https://vip.csdn.net/askvip?utm_source=1146287632