Atividade 4

{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

R Markdown

Atividade 4

Jamili Lopes Mohamed Younis

1) Base de Dados

[Workspace loaded from C:/Users/HP/Downloads/Base_de_dados-master/Base_de_dados-master/Titanic.RData]

2) Tabela Cruzada

# Quali x Quali
> Titanic$Sexo <-as.factor(Titanic$Sexo)
> Titanic$Sobreviveu <-as.factor(Titanic$Sobreviveu)
> 
> #table cruzada
> tablela1<-table(Titanic$Sexo,Titanic$Sobreviveu)
> 
> #Proporcao- porcentagem
> prop.table(table(Titanic$Sexo, Titanic$Sobreviveu),1)*100
           
            Não sobreviveu Sobreviveu
  Feminino        26.80851   73.19149
  Masculino       78.84393   21.15607

3) Conclusão

Podemos notar que a maioria dos sobreviventes são do sexo feminino.