LA <- read.csv("http://www.math.smith.edu/~bbaumer/mth241/LAhomes.csv") plot(price ~ sqft, data = LA)
LA <- subset(LA, sqft > 0) palaces <- LA$sqft > 20000 LA <- LA[!palaces, ] plot(price ~ sqft, data = LA)