Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- set.seed(1341)
- x <- c(runif(30, 0, 0.01), rnorm(100,3))
- hist(x, br = 10, freq = F)
- lines(density(x), col = 3, lwd = 3)
- lines(density(x, from = 0), col = 4, lwd = 3)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement