Carregar base de dados

library(readxl)
QE <- read_excel("C:/Users/Lenovo/Desktop/Base_de_dados-master/Questionario_Estresse.xls")
View(QE)

Análise de variáveis

library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
QE %>% group_by(Trabalha) %>%
   summarise(media=mean(Horas_estudo),
             mediana= median(Horas_estudo),
             DP=sd(Horas_estudo),
             tamanho=n())
## # A tibble: 2 x 5
##   Trabalha media mediana    DP tamanho
##      <dbl> <dbl>   <dbl> <dbl>   <int>
## 1        1  29.4      30  7.72      36
## 2        2  31.6      30  6.93      59
QE %>% group_by(Trabalha) %>% 
summarise(media=mean(Desempenho)
,desvio_padrao=sd(Desempenho),
tamanho=n())
## # A tibble: 2 x 4
##   Trabalha media desvio_padrao tamanho
##      <dbl> <dbl>         <dbl>   <int>
## 1        1  8.54         0.896      36
## 2        2  8.63         0.698      59

Conclusão

Devemos permitir que o aluno trabalhe.