Com a base de dados Questionário Estresse iremos analisar a relação entre as horas de estudo e o desempenho dos alunos de uma determinada turma. No gráfico abaixo oberservamos que há uma correlação positiva média, a grande maioria estudo entre 20 horas a 35 horas e tem um desempenho maior que 8.

O coeficiente de correlação de Pearson mede o grau da correlação entre 2 variáveis, podemos observar que as variáveis escolhidas Horas de Estudo e Desempenho tem um grau de associação baixo ou nenhum pois está dentro de 0 < r < 25, ou seja o número de horas que um aluno estudo não impacta no desempenho dele.

library(readxl)
Questionario_Estresse <- read_excel("~/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)
par(bg="#ADFFF4")
plot(Questionario_Estresse$Horas_estudo,Questionario_Estresse$Desempenho,pch=19,col="purple",
     main="Gráfico 1 - Horas de Estudo x Desempenho", ylab="Desempenho", xlab="Horas de Estudo")
abline(lsfit(Questionario_Estresse$Horas_estudo,Questionario_Estresse$Desempenho), col = "purple")

cor(Questionario_Estresse$Horas_estudo,Questionario_Estresse$Desempenho)
## [1] 0.2231532