The example comes from using the plotrixpackage. Code was found here. You will first need to install that package before you can access the multihist function:
#install.packages("plotrix")
require(plotrix)
l <- list(rnorm(50),rnorm(50,sd=2),rnorm(50,mean=3))
multhist(l)