# NOT RUN {
x <- dlaplace(c(-1000:1000)/10, 0, 1)
plot(x, type="l")
x <- plaplace(c(-1000:1000)/10, 0, 1)
plot(x, type="l")
qlaplace(c(0.025,0.975), 0, c(1,2))
x <- rlaplace(1000, 0, 1)
hist(x)
# }
Run the code above in your browser using DataLab