# NOT RUN {
x <- rlnorm(5000, meanlog=2, sdlog=1)
hist(x,breaks=30,main="",xlab="log-normal values")
uphist(x,breaks=30,main="",xlab="log-normal values",maxval=100)
uphist(x,breaks=30,main="",xlab="log-normal values",maxval=1000)
# }
Run the code above in your browser using DataLab