x<-read.table("newbedfordTempMonth.Data");
names(x)<-c("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
##postscript("nbTempBox.eps");
##boxplot(x, col="orange", cex.lab=1.5, cex.axis=1.5, font=2);
##dev.off();
##postscript("nbTempBoxJan.eps");
boxplot(x[,1], col="orange", cex.lab=1.5, cex.axis=1.5, font=2);
##dev.off();