###ATIVIDADE 6 ##IMPORTANDO BANCO DE DADOS QUESTIONÁRIO ESTRESSE

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/Davi/Desktop/Questionario_Estresse.xls")
View(Questionario_Estresse)

##MANIPULAR AS VARIÁVEIS

Questionario_Estresse$Estresse <- as.numeric(Questionario_Estresse$Estresse)
Questionario_Estresse$Horas_estudo <- as.numeric(Questionario_Estresse$Horas_estudo)

##ASSOCIAÇÃO ENTRE DUAS VARIÁVEIS QUANTITATIVAS

par(mfrow=c(1,1))
plot(Questionario_Estresse$Estresse,Questionario_Estresse$Horas_estudo,
     col="Green",pch=20,
     xlab = "Nível de estresse", ylab = "Horas de estudo",
     main="Nível de estresse por Horas de estudo")
abline(lm(Questionario_Estresse$Horas_estudo~Questionario_Estresse$Estresse),col="black")

##ATRAVÉS DA ASSOCIAÇÃO ENTRE AS DUAS VARIÁVEIS QUANTITATIVAS SELECIONADAS PODE-SE OBSERVAR QUE A MAIORIA DOS ESTUDANTES QUE POSSUEM O NÍVEL DE ESTRESSE DE 20% ATÉ 35% ESTUDAM DE 20 ATÉ 50 HORAS SEMANAIS; E O GRÁFICO APRESENTA DOIS OUTLIERS, UM COM O NÍVEL DE ESTRESSE EM 35% COM 60 HORAS DE ESTUDO SEMANAIS APROXIMADAMENTE, O OUTRO, TEM POR VOLTA DE 30% DE QUANTIDADE DE ESTRESSE COM 60 HORAS DE ESTUDO SEMANAIS.