如何生成均匀随机变量的样本，并计算2*均值大于上参数的次数

Question

我不知道如何编写代码来生成0到10之间的均匀随机变量的1000个实验，有10个数据点，这样它就会计数并返回给我样本点的平均值大于10的两倍的次数，并希望得到一些帮助。谢谢你

Answer 1

results <- rep(x=0,times=1000)
for(i in 1:1000) {
dat <- runif(n=10,min=0,max=10)
if(mean(dat) >= 5) {
results[[i]] <- 1
}
}
sum(results)