Key to assignment 3 


2.   expqq <- function(m)
                {
                  meanvec <- NULL  
                  for (i in 1:m)
                     { 
                      meanvec[i] <- mean(rexp(50,2))
                     } # This pair of brackets is not necessary
                       # because there is only one line inside. 
                       # For more than one line in a `for' loop
                       # don't forget this pair of brackets
                  qqnorm(meanvec)
                  qqline(meanvec)
                }