# NOT RUN {
x <- dbcnorm(c(-1000:1000)/200, 0, 1, 1)
plot(c(-1000:1000)/200, x, type="l")
x <- pbcnorm(c(-1000:1000)/200, 0, 1, 1)
plot(c(-1000:1000)/200, x, type="l")
qbcnorm(c(0.025,0.975), 0, c(1,2), 1)
x <- rbcnorm(1000, 0, 1, 1)
hist(x)
# }
Run the code above in your browser using DataLab