生成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)