Atividade 4 - tabela cruzada

1. Importação do dados

Aqui vou importar a base de dados Titanic

load("C:/Users/TM-CASA/Downloads/Base_de_dados-master/Titanic.RData")
library(knitr)
kable(head(Titanic))

Classe	Idade	Sexo	Sobreviveu
Primeira	adulto	Masculino	Sobreviveu
Primeira	adulto	Masculino	Sobreviveu
Primeira	adulto	Masculino	Sobreviveu
Primeira	adulto	Masculino	Sobreviveu
Primeira	adulto	Masculino	Sobreviveu
Primeira	adulto	Masculino	Sobreviveu

Cruzamento dos dados

Aqui usei os dados Sexo e Sobreviveu da Tabela Titanic

#Table cruzada (duas variáveis qualitativas)
tabela1 <- table(Titanic$Sexo, Titanic$Sobreviveu)

#Proporção - porcentagem
prop.table(table(Titanic$Sexo, Titanic$Sobreviveu),1)*100

##            
##             Não sobreviveu Sobreviveu
##   Feminino        26.80851   73.19149
##   Masculino       78.84393   21.15607

Conclusão

Após a exposição e o cruzamento desses dados, nota-se que: no nauufrágio do tão famoso navio Titanic, jurado como imbatível por seu criador, quem foi se mostrou imbatível mesmo, foram as mulheres no número de sobreviventes se comparado com os homens, como mostra a tabela. Não tenho uma explicação concreta para tal fato, mas pensando em hipóteses para esse resultado, cheguei a conclusão de uqe os homens foram cavalheiros (dada a época isso se torna provável) e doaram as suas vidas para salvar as crianças e as mulheres, assim como no filme.