Zufallszahlengenerierung mit Hilfe von rrnorm

Question

Ich versuche eine normalverteilte Zufallszahl zu generieren, die einen bestimmten Wert nicht überschreitet, während sie normal verteilt ist. Ich kam mit der folgenden:

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

wie würde ich hinzufügen, so dass es 1500 nicht überschreitet?

Answer 1

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