Carregando base de dados

library(readxl)
Questionario_Estresse <- read_excel("~/Aula de Estatistica/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)

Diagrama de Dispersão

plot (Questionario_Estresse$Horas_estudo,Questionario_Estresse$Estresse,col = "purple",pch=16, main = "Horas_estudo x Estresse", ylab = "Estresse", xlab = "Horas_estudo")
abline(lsfit(Questionario_Estresse$Estresse,Questionario_Estresse$Horas_estudo),col="red")

Coeficiente de corrrelação

cor(Questionario_Estresse$Horas_estudo,Questionario_Estresse$Estresse)
## [1] 0.303917

Interpretação da Análise

Ao analisar os dados, observamos que o diagrama de dispersão apresenta uma correlação linear positiva de definição fraca, em virtude que temos uma reta crescente e uma distribuição dispersa. Constatamos também que quanto maior o nível de horas de estudo, tende a ser maior o estresse. Para finalizar o coeficiente de correlação é próximo ao 0, ou seja, a reta está quase na horizontal e seu grau entre as duas variáveis é fraco.