cas.area <- read.csv("http://www.stat.ufl.edu/~winner/data/nevada_casino_sqft.csv", header=T) attach(cas.area); names(cas.area) mean(TOTAL) sd(TOTAL) median(TOTAL) (LQ <- quantile(TOTAL,.25)) (UQ <- quantile(TOTAL,.75)) (IQR <- UQ - LQ) hist(TOTAL,main="",xlab="Total Area (sq. ft.)",freq=F) lines(density(TOTAL))