Importar a base de dados

Só vamos usar as variáveis quantitativas.Não há necessidade de transformação de variável.

library(readxl)
Questionario_Estresse <- read_excel("C:/raphael/unirio/estatistica/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)

Análise gráfica - diagrama de dispersão

Hipótese - Quem tem mais horas de estudo tem maior desempenho.

plot(Questionario_Estresse$Desempenho,Questionario_Estresse$Horas_estudo,
     main="Gráfico 1 - diagrama de dispersão do desempenho e horas de estudo",
     xlab = "desempenho", ylab = "horas de estudo", pch=20,col='red')
abline(lsfit(Questionario_Estresse$Desempenho,Questionario_Estresse$Horas_estudo))

Hipotese verificada, quanto maior são as horas de estudo, maior é o desempenho do aluno.

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

Conclusão

0.2231532 - Correlação positiva entre Desempenho e Horas de estudo.