Resposta ao exercício Aula 01 - atv. 08: Segue o código:
plot(dados$hora_estudo, dados$nota,
main = "Diagrama de Dispersão",
xlab = "Número de horas de estudo",
ylab = "Nota em Matemática",
pch = 19,
col = "blue")
cor(dados$hora_estudo, dados$nota)
E segue o resultado:
> cor(dados$hora_estudo, dados$nota)
[1] 0.9189999
Que arredondado é = '0.92'.