Atividade 8

R Markdown

Atividade 8

Duas variaveis quantitativas

library(readxl)

## Warning: package 'readxl' was built under R version 4.2.3

QE <- read_excel("C:/Users/17988111701/Downloads/Questionario_Estresse.xls")
View(QE)

Dispersao entre o desempenho e as horas de estudo

A importancia do sono

plot(QE$Desempenho, QE$Horas_estudo,
     main = "Diagrama de dispersao entre o desempenho e as horas de estudo",
     xlab = "Desempenho ", ylab = "Horas de estudo",pch=2,"blue")

## Warning in plot.xy(xy, type, ...): plot type 'blue' will be truncated to first
## character

abline(lsfit(QE$Desempenho, QE$Horas_estudo), col="red")

Correlação o entre o desempenho e as horas de estudo

cor(QE$Desempenho, QE$Horas_estudo)

## [1] 0.2231532

#0.2231532