Atividade 7
Carregamento da base
library(readxl)
Questionario_Estresse <- read_excel("bases_curso_estatistica/Base_de_dados-master/Questionario_Estresse.xls")
Diagrama de Dispersão
plot(Questionario_Estresse$Desempenho, Questionario_Estresse$Estresse, col = "black", pch=18)
abline(lsfit(Questionario_Estresse$Desempenho, Questionario_Estresse$Estresse),col="green")
cor(Questionario_Estresse$Desempenho, Questionario_Estresse$Estresse)
## [1] 0.08257246
Coeficiente de correlação usando o “coorplot”
library(corrplot)
## corrplot 0.84 loaded
M <- cor(Questionario_Estresse
[,c("Desempenho","Estresse","Horas_estudo")])
corrplot(M, method="circle")
Comentários
#### Como toda pesquisa se inicia a partir de alguma experiência prévia do pesquisador, este apresentou uma informação que eu já havia imaginado, mas nunca tive a possibilidade de obter conclusões a partir de base numéricas.
#### Desde a minha primeira graduação, quando participei pela primeira vez do ENEM, pude perceber que meus colegas de sala e familiares próximos que mais "se dedicavam" aos estudos, procurando aprovação nos testes, obtinham resultados fracos ou medianos e níveis de estresse e impotência enormes.
#### Acredito que exista em nossa sociedade a errônea ideia de que quantidade está diretamente ligada a qualidade, logo, acredita-se que longas horas de estudo serão essenciais para bons resultados.
#### Contudo, o que estes números mostram é que, a quantidade de horas de estudo está mais ligada ao estresse e consequentemente o fracasso. Acredito que a busca futura deveria ser pelo tempo ideal de cada indivíduo em relação a determinado objetivo.