Reason #1

LA <- read.csv("http://www.math.smith.edu/~bbaumer/mth241/LAhomes.csv")
plot(price ~ sqft, data = LA)

plot of chunk unnamed-chunk-1

LA <- subset(LA, sqft > 0)
palaces <- LA$sqft > 20000
LA <- LA[!palaces, ]
plot(price ~ sqft, data = LA)

plot of chunk unnamed-chunk-1