使用rnorm生成隨機數

Question

我試圖生成一個正態分佈的隨機數，它在正態分佈時不超過某個值。我想出了以下內容：

expenses <- pmax(850, rnorm(1000, income*0.4, income*0.1)) 

我該如何補充，所以它不超過1500？

Answer 1

expenses <- pmin(1500, pmax(850, rnorm(1000, income*0.4, income*0.1)))