Passos:
1) Criar o modelo linear mod1 = lm(nota ~ hora_estudo, data = dados)
2) Verificamos os valores coeficientes de mod1:
Coefficients:
(Intercept) hora_estudo
3.8715 0.5197 3) Verificamos a média das horas de estudo:
> mean(dados$hora_estudo)
[1] 5.4084) Aplicamos a fórmula da reta do modelo linear: x = beta0 + beta1*y. Que em nosso caso fica:
nota_media_esperada = 3.8715 + 0.5197*5.408
> nota_media_esperada
[1] 6.6820385) Como alternativa (que eu prefiro), usamos a fórmula com os coeficientes:
> mod1$coefficients[[1]]+mod1$coefficients[[2]]*5.408
[1] 6.682Resultado final: a nota média estimada (considerando uma média de 5.4 horas de estudo) corresponde ao escore = 6.6.
