# NOT RUN {
oldpar <- par(no.readonly=TRUE)
egdata <- rlnorm(200,meanlog=0.075,sdlog=0.5)
outh <- hist(egdata,main="",col=2,breaks=seq(0,8,0.2))
ans <- addlnorm(outh,egdata)
lines(ans[,"x"],ans[,"y"],lwd=2,col=4)
par(oldpar)
# }
Run the code above in your browser using DataLab