我想生成一个均值为120，标准差为20的正态分布。但是我需要将这些值限制在[0,150]。我该怎么办？
scores <- rnorm(1000, 120, 20)
您可以使用递归方法代替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)
