rscript for jhu datasci rprog quiz 3 & 4