load(url("https://github.com/DATAUNIRIO/Base_de_dados/raw/master/Titanic.RData"))

Atividade 1

summary(Titanic)
##         Classe        Idade             Sexo               Sobreviveu  
##  Tripulação:885   criança: 109   Feminino : 470   Não sobreviveu:1490  
##  Primeira  :324   adulto :2091   Masculino:1730   Sobreviveu    : 710  
##  Segunda   :285                                                        
##  Terceira  :706
Titanic$sobreviveu <- as.factor(Titanic$Sobreviveu)
ls(Titanic)
## [1] "Classe"     "Idade"      "Sexo"       "sobreviveu" "Sobreviveu"

Havia no Titanic um total de 2200 pessoas.

o banco de dados contém um total de quatro variaveis

Atividade 2

summary(Titanic$Sobreviveu)
## Não sobreviveu     Sobreviveu 
##           1490            710

Sobreviveram 710 pessoas.

Atividade 3

1 a cada 3 pessoas sobreviveu, aproximadamente.

Atividade 4

table(Titanic$Sexo,Titanic$Sobreviveu)
##            
##             Não sobreviveu Sobreviveu
##   Feminino             126        344
##   Masculino           1364        366
tabela1<-table(Titanic$Sexo,Titanic$Sobreviveu)

344 mulheres sobreviveram.

Atividade 5

table(Titanic$Idade,Titanic$Sobreviveu)
##          
##           Não sobreviveu Sobreviveu
##   criança             52         57
##   adulto            1438        653
tabela2<-table(Titanic$Idade,Titanic$Sobreviveu)

57 crianças sobreviveram

Atividade 6

table(Titanic$Classe,Titanic$Sobreviveu)
##             
##              Não sobreviveu Sobreviveu
##   Tripulação            673        212
##   Primeira              122        202
##   Segunda               167        118
##   Terceira              528        178
tabela3<-table(Titanic$Classe,Titanic$Sobreviveu)

178 pessoas da terceira classe sobreviveram.

Atividade 7

prop.table(tabela1,1)*100
##            
##             Não sobreviveu Sobreviveu
##   Feminino        26.80851   73.19149
##   Masculino       78.84393   21.15607

73% das mulheres sobreviveu.

Atividade 8

prop.table(tabela2,1)*100
##          
##           Não sobreviveu Sobreviveu
##   criança       47.70642   52.29358
##   adulto        68.77092   31.22908

52% das crianças sobreviveu.

Atividade 9

prop.table(tabela3,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

25% da terceira classe sobreviveu.

Atividade 10

É possível fazeer uma construção dos dados através do gráfico tipo histograma, já que ele torna possível a análise simultânea de mais de uma variável.

Atividade 11

table(Titanic$Sobreviveu)
## 
## Não sobreviveu     Sobreviveu 
##           1490            710
table5<-(Titanic$Sobreviveu)

Atividade 12

barplot(tabela1, 
        beside=TRUE,
        col=c("lightpink", "darkblue"),
        main = "Gráfico - Análise de sobreviventes por sexo",
        legend.text = TRUE,
        ylim = c(0,2200))

Atividade 14

Ambos os gráficos (baloonplot e mosaicplot) permitem uma analise bi-variada de variantes qualitativas e quantitativas. O fato de ser possível, neste caso, avaliar todas a variáveis presentes, nos dá a possibilidade de correlacionar os resultados de forma imediata e interpreta-los de forma mais clara, critica e objetiva, avaliando os dados objetivos com o contexto geral da amostra.

Atividade 15

Após feita a análise dos dados e a correlação estatística entre eles, podem ser feitas as seguintes considerações:

1) O fato de terem morrido mais homens que mulheres e crianças indica que o protocolo de segurança “mulheres e crianças primeiro” foi atendido;

2) Foi observado que a maioria das mortes se deu na classe “Tripulação” o que indicaria esforço destas pessoas em salvas todos os passageiros antes de si mesmos;

3) É possível observar que há um aumento de mortes conforme a classe do passageiro diminui, o que pode indicar algum favorecimento no momento do resgate aos mais privilegiados. Salvo em caso da diferença do posicionamento da terceira e segunda classe ser muito desfavorável em relação à primeira classe para casos de acidente;