#1)Importação dos dados(Base Carros)
load("C:/Users/Angeli/Desktop/segundo periodo/estatistica/dados/Base_de_dados-master/Titanic.RData")
View(Titanic)#2)Cruzamento dos dados
library(knitr)
idade <- summary(Titanic$Idade)
sexo <- summary(Titanic$Sexo)
classe <- summary(Titanic$Classe)
sobreviveu <- summary(Titanic$Sobreviveu)
#Tabela Cruzada (Duas Variáveis qualitativas)
tab_idade <- table(Titanic$Idade,Titanic$Sobreviveu)
tab_sexo <- table(Titanic$Sexo,Titanic$Sobreviveu)
tab_classe <- table(Titanic$Classe,Titanic$Sobreviveu)
kable(tab_idade)| Não sobreviveu | Sobreviveu | |
|---|---|---|
| criança | 52 | 57 |
| adulto | 1438 | 653 |
kable(tab_sexo)| Não sobreviveu | Sobreviveu | |
|---|---|---|
| Feminino | 126 | 344 |
| Masculino | 1364 | 366 |
kable(tab_classe)| Não sobreviveu | Sobreviveu | |
|---|---|---|
| Tripulação | 673 | 212 |
| Primeira | 122 | 202 |
| Segunda | 167 | 118 |
| Terceira | 528 | 178 |
| #3)Conclusão |
É possível notar a grande diferença entre os que sobreviveram e os que não tiveram essa oportunidade. A grande maioria não teve um final feliz, e mesmo sobrevivendo ao naufrágio, morreu com o grande frio.