# Here is an R script to create the frequency histogram of commute times. 
# 
# Warning!! Change data for YOUR project!
#
#----------------- data
commuteTimes = c(31, 23, 33, 50, 43, 44, 47,33, 45, 36, 65, 70, 41, 50,52, 45, 13, 10, 63, 48, 26,50, 43, 34, 55, 52, 38, 59,41, 46, 38, 79, 51, 35, 52,64, 36, 50, 21, 68, 42, 39,38, 52, 36, 49, 37, 10, 13)
#--------------------------------- histogram
hist(commuteTimes,col = "cyan",main = "Commute Times to BMCC",xlab = "minutes");
title(sub = "analysis by Prof McCarthy",cex.sub = 0.75, font.sub = 3, col.sub = "black", adj = 1)
#------------ mean and sd
"commute times mean M"; mean(commuteTimes);
"commute times standard deviation SD"; sd(commuteTimes);
# ---------- 95% CI
t.test(commuteTimes)
# End of R Script