hist(WestRoxbury\(TAX, freq = FALSE) curve(dnorm(x, mean=mean(WestRoxbury\)TAX), sd=mean(WestRoxbury\(TAX)), add=TRUE) lines(density(WestRoxbury\)TAX, adjust = 3)) rug(WestRoxbury$TAX)