残差分析
東京国際大学 データサイエンス教育研究所 竹田 恒
2022-09-22
データ
x <- 1:30
y <- seq(1, 300, 10) + rnorm(30) 外れ値
y[5] <- y[5] + 10
y[10] <- y[10] + 5
y[25] <- y[25] - 10fit <- lm(y ~ x)
plot(fit)
x <- 1:30
y <- seq(1, 300, 10) + rnorm(30) y[5] <- y[5] + 10
y[10] <- y[10] + 5
y[25] <- y[25] - 10fit <- lm(y ~ x)
plot(fit)