Vai dar namoro?!

Venha ver o estudo que busca responder a pergunta “Sua namorada te estressa ou desestressa?”

library(readxl)
Questionario_Estresse = read_excel("G:/Meu Drive/MESTRADO/ESTATISTICA/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)
Questionario_Estresse$Namorado_a =  ifelse(Questionario_Estresse$Namorado_a==1,"Sim","Não")

Quantos Jovens afirmaram que namoram?

tabela_Namora_a =table(Questionario_Estresse$Namorado_a)
tabela_Namora_a
## 
## Não Sim 
##  48  47

Então qual é essa proporção?

prop.table(tabela_Namora_a)*100
## 
##      Não      Sim 
## 50.52632 49.47368

Observe o Gráfico

pie(tabela_Namora_a, col = c("#C7327E","#000000"))

Conclusão

Através do meu conhecimento atual da linguagem R não possuo ferramentas para fazer a analise proposta pelo tema do Artigo. No entanto é possivel afirma que o número de alunos que namoram e os que não namoram está bem divido. Com mais conhecimento adiquiridos nas próximas aulas acredito que será possivel aplicar funções condicionais para assim responder a questão poposta. Exemplo: Se o aluno que namora se encontra no quartil supeior do Nivel de estresse ou abaixo.