birthwt <- read.csv("data/birthwt.csv")
fit <- lm(bwt ~ lwt, data = birthwt)
fitted_bwt <- fitted(fit)
residual <- birthwt$bwt - fitted_bwt
prediction_error <- fitted_bwt - birthwt$bwt
head(data.frame(
bwt = birthwt$bwt,
fitted = round(fitted_bwt, 1),
residual = round(residual, 1),
minus_prediction_error = round(-prediction_error, 1)
))