任何想法如何在R中绘制这个截断的普通PDF。均值为0，方差为1，因此PDF为：exp((-x^2)/2)) * I{x>=2}，其中I是指标函数。任何帮助将不胜感激。谢谢。
exp((-x^2)/2)) * I{x>=2}
I
没什么比这更简单了。尝试：
x <- seq(-5, 5, by=0.01) plot(x[x >= 2], exp((-x^2)/2)[x >= 2])