样本函数的数字平均值

Question

所以我写了一个代码，其中基本上是一个骰子滚动了很多次。 所以我现在必须修改这个代码，这样它就不会取每1个滚动的总和，而是需要滚动的平均数或平均数：

count_ones <- function(k) {
  ones <- sum(sample(1:6, k, TRUE) == 1)
  return(ones/k)
}

如果有意义，我不确定如何获得样本函数的均值