ATIVIDADE 5

Importando base de dados Questinario_Estresse

library(readxl)
QE <- read_excel("Base_de_dados-master/Questionario_Estresse.xls")
View(QE)

Corrível variável

QE$Mora_pais <- ifelse (QE$Mora_pais== 1, "SIM", "NÃO")

Análise qualixquanti (média e desvio padrão)

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

library(flextable)

QE %>% select(Mora_pais, Estresse) %>%
  group_by(Mora_pais) %>%
  summarise(media=mean(Estresse))%>% 
  flextable()