hours <- c(1, 2, 3, 4, 5, 6, 7, 8) scores <- c(50, 55, 65, 70, 75, 78, 85, 90) data <- data.frame(hours = hours, scores = scores)
In simple linear regression, we model the relationship as:
\[ Y = \beta_0 + \beta_1 X + \epsilon \]
model <- lm(scores ~ hours, data = data) summary(model)
lm() function fits a linear regression modelResiduals measure prediction error:
\[ e_i = y_i - \hat{y}_i \]
The regression line minimizes the total squared error:
\[ \sum_{i=1}^{n}(y_i - \hat{y}_i)^2 \]
Thank you for viewing this presentation.