Atividade 4 Titanic - 2019.2

#IMPORTA挼㸷挼㸳O DE DADOS
library(readxl)
Titanic.RData<- load("C:/Users/Gabriel/Downloads/Titanic.RData")

#SELE挼㸷挼㸳O DOS DADOS
Titanic$Classe <- as.factor(Titanic$Classe)
Titanic$Sobreviveu<- as.factor(Titanic$Sobreviveu)

#TABELA CRUZADA
tabela <- table(Titanic$Classe,Titanic$Sobreviveu)
tabela

##             
##              Não sobreviveu Sobreviveu
##   Tripulação            673        212
##   Primeira              122        202
##   Segunda               167        118
##   Terceira              528        178

#PORCENTAGEM DA TABELA CRUZADA 
prop.table(tabela,1)*100

##             
##              Não sobreviveu Sobreviveu
##   Tripulação       76.04520   23.95480
##   Primeira         37.65432   62.34568
##   Segunda          58.59649   41.40351
##   Terceira         74.78754   25.21246

CONCLUSÃO

Percebe-se que as classes segunda e terceira e a tripulação foram as quem mais morreram. Já a primeira classe conseguiu sair logo pelo botes e com isso tem um maior índice de sobrevivência.