x <- drectnorm(c(-1000:1000)/200, 0, 1)
plot(c(-1000:1000)/200, x, type="l")
x <- prectnorm(c(-1000:1000)/200, 0, 1)
plot(c(-1000:1000)/200, x, type="l")
qrectnorm(c(0.025,0.975), 0, c(1,2))
x <- rrectnorm(1000, 0, 1)
hist(x)
Run the code above in your browser using DataLab