BASE DE DADOS

library(readxl)
Questionario_Estresse <- read_excel("~/R/Base_de_dados-master/Questionario_Estresse.xls")

GRÁFICO DE DISPERSÃO

plot(Questionario_Estresse$Créditos,Questionario_Estresse$Horas_estudo, col = "green")

abline(lsfit(Questionario_Estresse$Créditos,Questionario_Estresse$Horas_estudo),col="red")
## Warning in lsfit(Questionario_Estresse$Créditos,
## Questionario_Estresse$Horas_estudo): 1 missing value deleted

COEFICIENTE DE CORRELAÇÃO

dados <-data.frame(x=c(15,25,35,45,55),
                   y=c(20,30,40,50,60))
cor(dados$x,dados$y)
## [1] 1

ANÁLISE DOS DADOS

Analisando os dados podemos concluir que quanto maior os créditos, maior o tempo de estudo despendido e a correlação existente é linear, forte pelo valor do coeficiente de correlação ser 1 e positiva por se manter de forma crescente