x <- rbhatt(1e5, 5, 3, 5)
xx <- seq(-20, 20, by = 0.01)
hist(x, 100, freq = FALSE)
lines(xx, dbhatt(xx, 5, 3, 5), col = "red")
hist(pbhatt(x, 5, 3, 5))
plot(ecdf(x))
lines(xx, pbhatt(xx, 5, 3, 5), col = "red", lwd = 2)
Run the code above in your browser using DataLab