###################################################
### chunk number 1: 
###################################################
curve(log(x),from=0,to=10)
abline(h=0,lty=2)
abline(v=1,lty=2)


###################################################
### chunk number 2: 
###################################################
curve(gamma(x),from=0.1,to=5,ylab="")
mtext(expression(Gamma(x)),side=2,at=12,line=3)
abline(h=c(1,2,6,24,120),col="gray")