This file and graph on web at 
http://www.math.mcgill.ca/keith/teaching/203/

R software available from http://lib.stat.cmu.edu/R/CRAN/

downtown<-c(600,380,450,1050,900,750,800,690,1500)
ndg<-c(525,825,390,960,750,275,600,655)
velala<-c(525,610,685,610,350,525)
westmount<-c(1600,2100,3600,1900,1400,1495,1400,
    795,1900,850,850,1500,795,2800,1700,1185,995)
boxplot(downtown,ndg,velala,westmount,
    names=c("downtown","ndg","velala","westmount"))