在R

Question

我想生成一个平均分布，平均值为120，标准差为20.但我需要将值限制为[0,150]。我该怎么办？

scores <- rnorm(1000, 120, 20)

Answer 1

您可以使用递归方法代替while循环：

foo = function(n, m, v, up, down)
{
    if(n==0) return(numeric(n))
    vec = Filter(function(x) x>=down & x<=up, rnorm(n, m, v))
    c(vec, foo(n-length(vec), m, v, up, down))
}

result = foo(1000, 120, 20, 150, 0)