y1 <- y y2 <- y * (x / 100) y3 <- y + (x - 100) * 0.3 y4 <- y * (x / 100) + (x - 100) * 0.3Classify each plot as unbiased or biased; homoscedastic or heteroscedastic.
> x <- c(81, 95, 97, 101, 112, 125, 129, 167, 220) > qqnorm(x)

> x <- rnorm(50, mean=15, sd=3.8) > hist(x) > qqnorm(x)
> x <- runif(50, min=10, max=50)
> x <- runif(50, min=10, max=50) > hist(x) > qqnorm(x)