secret page of help

> hist(green.fl,col=rgb(0,1,0,1/2),ylim=c(0,10),breaks=seq(30,55,by=1),main="Three Types of Flowers",ylab="Number of Sampled Flowers",xlab="Length of Flowers (in mm)")

> hist(yellow.fl,col=rgb(1,1,0,3/4),ylim=c(0,10),breaks=seq(30,55,by=1),add=T)

> hist(red.fl,col=rgb(1,0,0,1/2),ylim=c(0,10),breaks=seq(30,55,by=1),add=T)

and again...

> hist(friday,col=rgb(1,0,0,1/2),ylim=c(0,10),breaks=seq(30,50,by=2),main="Scores on Vocab, From Friday to Monday",xlab="Number Correct (out of 50)",ylab="Number of Students")

> legend("topright", cex=0.75,pch=16,col=c(rgb(1,0,0,1/2),rgb(0,0,1,1/4)), legend=c("Friday", "Monday"), ncol=2)

> hist(monday,col=rgb(0,0,1,1/4),ylim=c(0,10),breaks=seq(30,50,by=2),add=T)