R: Titanic

# ui.R
#Loading libraries
library(shiny)

#Loading other used scripts

# Define UI for application that draws a histogram
shinyUI(fluidPage(
  
  # Application title
  titlePanel("Titanic"),
  
  # The inout-fields 
  sidebarLayout(
    sidebarPanel(
      radioButtons("pclassIn", "Passenger's class:",
                   c("All" = "all",
                     "First class" = "first",
                     "Secound class" = "secound",
                     "Third class" = "third")),
      selectInput("sexIn", "Passenger's sex:",
                   c("all" = "all",
                     "female" = "female",
                     "male" = "male")),
      selectInput("ageIn",
                   "Passenger's age",
                   c("All" = "all",
                     "Children" = "children",
                     "Adults" = "adults"))
       
    ),
    
    # Show a plot of the generated distribution
    mainPanel(
       plotOutput("pieChart")
    )
  )
))

#server.R
#Loading libraries
# for Shiny
library(shiny)

#for csv
library(readr)
library(data.table)

#Loading other used scripts
source("scripts/pieChart.R")
source("scripts/passenger.R")
source("scripts/filterPassenger.R")
source("scripts/allPass.R")
source("scripts/getSlices.R")

# Loading Data
titanicData <- read.csv2("data/titanic.csv")
setnames(titanicData, old = "ï..pclass", new = "pclass")
countedPassenger <- filterPassenger(titanicData)
lbls <- c("survived", "not survived")

# Define server logic required to draw a histogram
shinyServer(function(input, output) {
   
  output$pieChart <- renderPlot({
    slices <- getSlices(countedPassenger, input)
    pieChart(slices, lbls)
  })
  
})

#allPass.R
allPass <- function(actuellPassenger, survivedAll, deadAll){
  # Survived or dead
  if(actuellPassenger$survived == 1) {
    survivedAll <- survivedAll + 1
  }
  
  if(actuellPassenger$survived == 0){
    deadAll <- deadAll + 1
  }
  
  allPassenger <- list("survived" = survivedAll, "dead" = deadAll)
  
  return(allPassenger)
}

# pieChart.R
# Source: https://www.statmethods.net/graphs/pie.html

pieChart <- function(slices , lbls){
  
  pct <- round(slices/sum(slices)*100)
  
  lbls <- paste(lbls, pct) # add percents to labels 
  
  lbls <- paste(lbls,"%",sep="") # ad % to labels 
  
  colors = c("green" ,"red")
  
  pie(slices,labels = lbls, col=colors,
      main="Pie Chart of Titanic")
}

# passenger.R
passenger <- function(titanicData, myRow){
  #print(titanicData$pclass[myRow])
  pclass <- titanicData$pclass[myRow]
  #pclass <- 1
  sex <- titanicData$sex[myRow]
  age <- titanicData$age[myRow]
  survived <- titanicData$survived[myRow]
  
  pass <- list("pclass" = pclass, "sex" = sex, "age" = age, "survived" = survived)
  return(pass)
}

# getSlices.R
getSlices <- function(countedPassenger, input){
  choiceClass <- input$pclassIn;
  choiceSex <- input$sexIn;
  choiceAge <- input$ageIn;
  sclices <- c(0,0);
  lbls <- c();
  
  #all
  if(choiceClass == "all" && choiceSex == "all" && choiceAge == "all"){
    slices <- c(countedPassenger$allPassenger$survived, countedPassenger$allPassenger$dead)
  }
  # class
  if(choiceClass != "all" && choiceSex == "all" && choiceAge == "all"){
    # first class
    if(choiceClass == "first"){
      slices <- c(countedPassenger$firstClassPassenger$survived, countedPassenger$firstClassPassenger$dead)
    }
    # secound class
    if(choiceClass == "secound"){
      slices <- c(countedPassenger$secoundClassPassenger$survived, countedPassenger$secoundClassPassenger$dead)
    }
    # third class
    if(choiceClass == "third"){
      slices <- c(countedPassenger$thirdClassPassenger$survived, countedPassenger$thirdClassPassenger$dead)
    }
  }
  
  # sex
  if(choiceClass == "all" && choiceSex != "all" && choiceAge == "all"){
    # female
    if(choiceSex == "female"){
      slices <- c(countedPassenger$femalePassenger$survived, countedPassenger$femalePassenger$dead)
    }
    # male
    if(choiceSex == "male"){
      slices <- c(countedPassenger$malePassenger$survived, countedPassenger$malePassenger$dead)
    }
  }
  
  # age
  if(choiceClass == "all" && choiceSex == "all" && choiceAge != "all"){
    # children
    if(choiceAge == "children"){
      slices <- c(countedPassenger$childPassenger$survived, countedPassenger$childPassenger$dead)
    }
    # adults
    if(choiceAge == "adults"){
      slices <- c(countedPassenger$adultPassenger$survived, countedPassenger$adultPassenger$dead)
    }
  }
  
  # class sex
  if(choiceClass != "all" && choiceSex != "all" && choiceAge == "all"){
    # first class female
    if(choiceClass == "first" && choiceSex == "female"){
      slices <- c(countedPassenger$firstClassFemalePassenger$survived, countedPassenger$firstClassFemalePassenger$dead)
    }
    # first class male
    if(choiceClass == "first" && choiceSex == "male"){
      slices <- c(countedPassenger$firstClassMalePassenger$survived, countedPassenger$firstClassMalePassenger$dead)
    }
    # secound class female
    if(choiceClass == "secound" && choiceSex == "female"){
      slices <- c(countedPassenger$secoundClassFemalePassenger$survived, countedPassenger$secoundClassFemalePassenger$dead)
    }
    # secound class male
    if(choiceClass == "secound" && choiceSex == "male"){
      slices <- c(countedPassenger$secoundClassMalePassenger$survived, countedPassenger$secoundClassMalePassenger$dead)
    }
    # third class female
    if(choiceClass == "third" && choiceSex == "female"){
      slices <- c(countedPassenger$thirdClassFemalePassenger$survived, countedPassenger$thirdClassFemalePassenger$dead)
    }
    # third class male
    if(choiceClass == "third" && choiceSex == "male"){
      slices <- c(countedPassenger$thirdClassMalePassenger$survived, countedPassenger$thirdClassMalePassenger$dead)
    }
  }
  
  # class age
  if(choiceClass != "all" && choiceSex == "all" && choiceAge != "all"){
    # first class children
    if(choiceClass == "first" && choiceAge == "children"){
      slices <- c(countedPassenger$firstClassChildPassenger$survived, countedPassenger$firstClassChildPassenger$dead)
    }
    # first class adults
    if(choiceClass == "first" && choiceAge == "adults"){
      slices <- c(countedPassenger$firstClassAdultPassenger$survived, countedPassenger$firstClassAdultPassenger$dead)
    }
    # secound class children
    if(choiceClass == "secound" && choiceAge == "children"){
      slices <- c(countedPassenger$secoundClassChildPassenger$survived, countedPassenger$secoundClassChildPassenger$dead)
    }
    # secound class adults
    if(choiceClass == "secound" && choiceAge == "adults"){
      slices <- c(countedPassenger$secoundClassAdultPassenger$survived, countedPassenger$secoundClassAdultPassenger$dead)
    }
    # third class children
    if(choiceClass == "third" && choiceAge == "children"){
      slices <- c(countedPassenger$thirdClassChildPassenger$survived, countedPassenger$thirdClassChildPassenger$dead)
    }
    # third class adults
    if(choiceClass == "third" && choiceAge == "adults"){
      slices <- c(countedPassenger$thirdClassAdultPassenger$survived, countedPassenger$thirdClassAdultPassenger$dead)
    }
  }
  
  # sex age
  if(choiceClass == "all" && choiceSex != "all" && choiceAge != "all"){
    # female children
    if(choiceSex == "female" && choiceAge == "children"){
      slices <- c(countedPassenger$femaleChildPassenger$survived, countedPassenger$femaleChildPassenger$dead)
    }
    # male children
    if(choiceSex == "male" && choiceAge == "children"){
      slices <- c(countedPassenger$maleChildPassenger$survived, countedPassenger$maleChildPassenger$dead)
    }
    # female adults
    if(choiceSex == "female" && choiceAge == "adults"){
      slices <- c(countedPassenger$femaleAdultPassenger$survived, countedPassenger$femaleAdultPassenger$dead)
    }
    # male adults
    if(choiceSex == "male" && choiceAge == "adults"){
      slices <- c(countedPassenger$maleAdultPassenger$survived, countedPassenger$maleAdultPassenger$dead)
    }
  }
  
  # class sex age
  if(choiceClass != "all" && choiceSex != "all" && choiceAge != "all"){
    # first class female children
    if(choiceClass == "first" && choiceSex == "female" && choiceAge == "children"){
      slices <- c(countedPassenger$firstClassFemaleChildPassenger$survived, countedPassenger$firstClassFemaleChildPassenger$dead)
    }
    # first class male children
    if(choiceClass == "first" && choiceSex == "male" && choiceAge == "children"){
      slices <- c(countedPassenger$firstClassMaleChildPassenger$survived, countedPassenger$firstClassMaleChildPassenger$dead)
    }
    # first class female adult
    if(choiceClass == "first" && choiceSex == "female" && choiceAge == "adults"){
      slices <- c(countedPassenger$firstClassFemaleAdultPassenger$survived, countedPassenger$firstClassFemaleAdultPassenger$dead)
    }
    # first class adult
    if(choiceClass == "first" && choiceSex == "male" && choiceAge == "adults"){
      slices <- c(countedPassenger$firstClassMaleAdultPassenger$survived, countedPassenger$firstClassMaleAdultPassenger$dead)
    }
    
    # secound class female children
    if(choiceClass == "secound" && choiceSex == "female" && choiceAge == "children"){
      slices <- c(countedPassenger$secoundClassFemaleChildPassenger$survived, countedPassenger$secoundClassFemaleChildPassenger$dead)
    }
    # secound class male children
    if(choiceClass == "secound" && choiceSex == "male" && choiceAge == "children"){
      slices <- c(countedPassenger$secoundClassMaleChildPassenger$survived, countedPassenger$secoundClassMaleChildPassenger$dead)
    }
    # secound class female adult
    if(choiceClass == "secound" && choiceSex == "female" && choiceAge == "adults"){
      slices <- c(countedPassenger$secoundClassFemaleAdultPassenger$survived, countedPassenger$secoundClassFemaleAdultPassenger$dead)
    }
    # secound class adult
    if(choiceClass == "secound" && choiceSex == "male" && choiceAge == "adults"){
      slices <- c(countedPassenger$secoundClassMaleAdultPassenger$survived, countedPassenger$secoundClassMaleAdultPassenger$dead)
    }
    
    # third class female children
    if(choiceClass == "third" && choiceSex == "female" && choiceAge == "children"){
      slices <- c(countedPassenger$thirdClassFemaleChildPassenger$survived, countedPassenger$thirdClassFemaleChildPassenger$dead)
    }
    # third class male children
    if(choiceClass == "third" && choiceSex == "male" && choiceAge == "children"){
      slices <- c(countedPassenger$thirdClassMaleChildPassenger$survived, countedPassenger$thirdClassMaleChildPassenger$dead)
    }
    # third class female adult
    if(choiceClass == "third" && choiceSex == "female" && choiceAge == "adults"){
      slices <- c(countedPassenger$thirdClassFemaleAdultPassenger$survived, countedPassenger$thirdClassFemaleAdultPassenger$dead)
    }
    # third class adult
    if(choiceClass == "third" && choiceSex == "male" && choiceAge == "adults"){
      slices <- c(countedPassenger$thirdClassMaleAdultPassenger$survived, countedPassenger$thirdClassMaleAdultPassenger$dead)
    }
  }
  
  #print(slices)
  return(slices)
}

# filterPassenger.R
filterPassenger <- function(titanicData){
  allPassenger <-list("survived" = 0, "dead" = 0);
  femalePassenger <-list("survived" = 0, "dead" = 0);
  malePassenger <-list("survived" = 0, "dead" = 0);
  childPassenger <-list("survived" = 0, "dead" = 0);
  adultPassenger <-list("survived" = 0, "dead" = 0);
  femaleChildPassenger <-list("survived" = 0, "dead" = 0);
  maleChildPassenger <-list("survived" = 0, "dead" = 0);
  femaleAdultPassenger <-list("survived" = 0, "dead" = 0);
  maleAdultPassenger <-list("survived" = 0, "dead" = 0);
  firstClassPassenger <-list("survived" = 0, "dead" = 0);
  secoundClassPassenger <-list("survived" = 0, "dead" = 0);
  thirdClassPassenger <-list("survived" = 0, "dead" = 0);
  firstClassFemalePassenger <-list("survived" = 0, "dead" = 0);
  secoundClassFemalePassenger <-list("survived" = 0, "dead" = 0);
  thirdClassFemalePassenger <-list("survived" = 0, "dead" = 0);
  firstClassMalePassenger <-list("survived" = 0, "dead" = 0);
  secoundClassMalePassenger <-list("survived" = 0, "dead" = 0);
  thirdClassMalePassenger <-list("survived" = 0, "dead" = 0);
  firstClassChildPassenger  <-list("survived" = 0, "dead" = 0);
  secoundClassChildPassenger  <-list("survived" = 0, "dead" = 0);
  thirdClassChildPassenger  <-list("survived" = 0, "dead" = 0);
  firstClassAdultPassenger  <-list("survived" = 0, "dead" = 0);
  secoundClassAdultPassenger  <-list("survived" = 0, "dead" = 0);
  thirdClassAdultPassenger  <-list("survived" = 0, "dead" = 0);
  firstClassFemaleChildPassenger  <-list("survived" = 0, "dead" = 0);
  secoundClassFemaleChildPassenger  <-list("survived" = 0, "dead" = 0);
  thirdClassFemaleChildPassenger  <-list("survived" = 0, "dead" = 0);
  firstClassFemaleAdultPassenger  <-list("survived" = 0, "dead" = 0);
  secoundClassFemaleAdultPassenger  <-list("survived" = 0, "dead" = 0);
  thirdClassFemaleAdultPassenger  <-list("survived" = 0, "dead" = 0);
  firstClassMaleChildPassenger  <-list("survived" = 0, "dead" = 0);
  secoundClassMaleChildPassenger  <-list("survived" = 0, "dead" = 0);
  thirdClassMaleChildPassenger  <-list("survived" = 0, "dead" = 0);
  firstClassMaleAdultPassenger  <-list("survived" = 0, "dead" = 0);
  secoundClassMaleAdultPassenger  <-list("survived" = 0, "dead" = 0);
  thirdClassMaleAdultPassenger  <-list("survived" = 0, "dead" = 0);
  
  for (myRow in 1:1309){
    actuellPassenger <- passenger(titanicData, myRow)
    #print(paste0("class: ", actuellPassenger$pclass))
    
    allPassenger <- allPass(actuellPassenger,allPassenger$survived, allPassenger$dead)
    #print(paste0("survived: ", allPassenger$survived))
    #print(paste0("dead: ", allPassenger$dead))
    
    # Survived or dead first class
    if(actuellPassenger$pclass == 1){
      firstClassPassenger <- allPass(actuellPassenger, firstClassPassenger$survived, firstClassPassenger$dead)
    }
    
    # Survived or dead secound class
    if(actuellPassenger$pclass == 2){
      secoundClassPassenger <- allPass(actuellPassenger, secoundClassPassenger$survived, secoundClassPassenger$dead)
    }
    
    # Survived or dead third class
    if(actuellPassenger$pclass == 3){
      thirdClassPassenger <- allPass(actuellPassenger, thirdClassPassenger$survived, thirdClassPassenger$dead)
    }
    
    if(!is.na(actuellPassenger$sex)){
      # Survived or dead female
      if(actuellPassenger$sex == "female"){
        femalePassenger <- allPass(actuellPassenger, femalePassenger$survived, femalePassenger$dead)
      }
      
      # Survived or dead male
      if(actuellPassenger$sex == "male"){
        malePassenger <- allPass(actuellPassenger, malePassenger$survived, malePassenger$dead)
      }
      
      # Survived or dead first class female
      if(actuellPassenger$pclass == 1 && actuellPassenger$sex == "female"){
        firstClassFemalePassenger <- allPass(actuellPassenger, firstClassFemalePassenger$survived, firstClassFemalePassenger$dead)
      }
      
      # Survived or dead secound class female
      if(actuellPassenger$pclass == 2 && actuellPassenger$sex == "female"){
        secoundClassFemalePassenger <- allPass(actuellPassenger, secoundClassFemalePassenger$survived, secoundClassFemalePassenger$dead)
      }
      
      # Survived or dead third class female
      if(actuellPassenger$pclass == 3 && actuellPassenger$sex == "female"){
        thirdClassFemalePassenger <- allPass(actuellPassenger, thirdClassFemalePassenger$survived, thirdClassFemalePassenger$dead)
      }
      
      # Survived or dead first class male
      if(actuellPassenger$pclass == 1 && actuellPassenger$sex == "male"){
        firstClassMalePassenger <- allPass(actuellPassenger, firstClassMalePassenger$survived, firstClassMalePassenger$dead)
      }
      
      # Survived or dead secound class male
      if(actuellPassenger$pclass == 2 && actuellPassenger$sex == "male"){
        secoundClassMalePassenger <- allPass(actuellPassenger, secoundClassMalePassenger$survived, secoundClassMalePassenger$dead)
      }
      
      # Survived or dead third class male
      if(actuellPassenger$pclass == 3 && actuellPassenger$sex == "male"){
        thirdClassMalePassenger <- allPass(actuellPassenger, thirdClassMalePassenger$survived, thirdClassMalePassenger$dead)
      }
    }
    
    if(!is.na(actuellPassenger$age)){
      #print(actuellPassenger$age)
      # Survived or dead child
      if(actuellPassenger$age <= 18){
        childPassenger <- allPass(actuellPassenger, childPassenger$survived, childPassenger$dead)
      }
      
      # Survived or dead adult
      if(actuellPassenger$age >= 18){
        adultPassenger <- allPass(actuellPassenger, adultPassenger$survived, adultPassenger$dead)
      }
      
      # Survived or dead first class child
      if(actuellPassenger$pclass == 1 && actuellPassenger$age <= 18){
        firstClassChildPassenger <- allPass(actuellPassenger, firstClassChildPassenger$survived, firstClassChildPassenger$dead)
      }
      
      # Survived or dead secound class child
      if(actuellPassenger$pclass == 2 && actuellPassenger$age <= 18){
        secoundClassChildPassenger <- allPass(actuellPassenger, secoundClassChildPassenger$survived, secoundClassChildPassenger$dead)
      }
      
      # Survived or dead third class child
      if(actuellPassenger$pclass == 3 && actuellPassenger$age <= 18){
        thirdClassChildPassenger <- allPass(actuellPassenger, thirdClassChildPassenger$survived, thirdClassChildPassenger$dead)
      }
      
      # Survived or dead first class adult
      if(actuellPassenger$pclass == 1 && actuellPassenger$age >= 18){
        firstClassAdultPassenger <- allPass(actuellPassenger, firstClassAdultPassenger$survived, firstClassAdultPassenger$dead)
      }
      
      # Survived or dead secound class adult
      if(actuellPassenger$pclass == 2 && actuellPassenger$age >= 18){
        secoundClassAdultPassenger <- allPass(actuellPassenger, secoundClassAdultPassenger$survived, secoundClassAdultPassenger$dead)
      }
      
      # Survived or dead third class adult
      if(actuellPassenger$pclass == 3 && actuellPassenger$age >= 18){
        thirdClassAdultPassenger <- allPass(actuellPassenger, thirdClassAdultPassenger$survived, thirdClassAdultPassenger$dead)
      }
    }
    
    if(!is.na(actuellPassenger$age) && !is.na(actuellPassenger$sex)){
      # Survived or dead female child
      if(actuellPassenger$age <= 18 && actuellPassenger$sex == "female"){
        femaleChildPassenger <- allPass(actuellPassenger, femaleChildPassenger$survived, femaleChildPassenger$dead)
      }
      
      # Survived or dead female adult
      if(actuellPassenger$age >= 18 && actuellPassenger$sex == "female"){
        femaleAdultPassenger <- allPass(actuellPassenger, femaleAdultPassenger$survived, femaleAdultPassenger$dead)
      }
      
      # Survived or dead male child
      if(actuellPassenger$age <= 18 && actuellPassenger$sex == "male"){
        maleChildPassenger <- allPass(actuellPassenger, maleChildPassenger$survived, maleChildPassenger$dead)
      }
      
      # Survived or dead male adult
      if(actuellPassenger$age >= 18 && actuellPassenger$sex == "male"){
        maleAdultPassenger <- allPass(actuellPassenger, maleAdultPassenger$survived, maleAdultPassenger$dead)
      }
      
      # Survived or dead first class female child
      if(actuellPassenger$pclass == 1 && actuellPassenger$sex == "female" && actuellPassenger$age <= 18){
        firstClassFemaleChildPassenger <- allPass(actuellPassenger, firstClassFemaleChildPassenger$survived, firstClassFemaleChildPassenger$dead)
      }
      
      # Survived or dead secound class female child
      if(actuellPassenger$pclass == 2 && actuellPassenger$sex == "female" && actuellPassenger$age <= 18){
        secoundClassFemaleChildPassenger <- allPass(actuellPassenger, secoundClassFemaleChildPassenger$survived, secoundClassFemaleChildPassenger$dead)
      }
      
      # Survived or dead third class female child
      if(actuellPassenger$pclass == 3 && actuellPassenger$sex == "female" && actuellPassenger$age <= 18){
        thirdClassFemaleChildPassenger <- allPass(actuellPassenger, thirdClassFemaleChildPassenger$survived, thirdClassFemaleChildPassenger$dead)
      }
      
      # Survived or dead first class female adult
      if(actuellPassenger$pclass == 1 && actuellPassenger$sex == "female" && actuellPassenger$age >= 18){
        firstClassFemaleAdultPassenger <- allPass(actuellPassenger, firstClassFemaleAdultPassenger$survived, firstClassFemaleAdultPassenger$dead)
      }
      
      # Survived or dead secound class female adult
      if(actuellPassenger$pclass == 2 && actuellPassenger$sex == "female" && actuellPassenger$age >= 18){
        secoundClassFemaleAdultPassenger <- allPass(actuellPassenger, secoundClassFemaleAdultPassenger$survived, secoundClassFemaleAdultPassenger$dead)
      }
      
      # Survived or dead third class female adult
      if(actuellPassenger$pclass == 3 && actuellPassenger$sex == "female" && actuellPassenger$age >= 18){
        thirdClassFemaleAdultPassenger <- allPass(actuellPassenger, thirdClassFemaleAdultPassenger$survived, thirdClassFemaleAdultPassenger$dead)
      }
      # Survived or dead first class male child
      if(actuellPassenger$pclass == 1 && actuellPassenger$sex == "male" && actuellPassenger$age <= 18){
        firstClassMaleChildPassenger <- allPass(actuellPassenger, firstClassMaleChildPassenger$survived, firstClassMaleChildPassenger$dead)
      }
      
      # Survived or dead secound class male child
      if(actuellPassenger$pclass == 2 && actuellPassenger$sex == "male" && actuellPassenger$age <= 18){
        secoundClassMaleChildPassenger <- allPass(actuellPassenger, secoundClassMaleChildPassenger$survived, secoundClassMaleChildPassenger$dead)
      }
      
      # Survived or dead third class male child
      if(actuellPassenger$pclass == 3 && actuellPassenger$sex == "male" && actuellPassenger$age <= 18){
        thirdClassMaleChildPassenger <- allPass(actuellPassenger, thirdClassMaleChildPassenger$survived, thirdClassMaleChildPassenger$dead)
      }
      
      # Survived or dead first class male adult
      if(actuellPassenger$pclass == 1 && actuellPassenger$sex == "male" && actuellPassenger$age >= 18){
        firstClassMaleAdultPassenger <- allPass(actuellPassenger, firstClassMaleAdultPassenger$survived, firstClassMaleAdultPassenger$dead)
      }
      
      # Survived or dead secound class female adult
      if(actuellPassenger$pclass == 2 && actuellPassenger$sex == "female" && actuellPassenger$age >= 18){
        secoundClassMaleAdultPassenger <- allPass(actuellPassenger, secoundClassMaleAdultPassenger$survived, secoundClassMaleAdultPassenger$dead)
      }
      
      # Survived or dead third class female adult
      if(actuellPassenger$pclass == 3 && actuellPassenger$sex == "female" && actuellPassenger$age >= 18){
        thirdClassMaleAdultPassenger <- allPass(actuellPassenger, thirdClassMaleAdultPassenger$survived, thirdClassMaleAdultPassenger$dead)
      }
    }
    
  }
  return(list("allPassenger" = allPassenger,
              "femalePassenger" =  femalePassenger,
              "malePassenger" = malePassenger,
              "childPassenger" = childPassenger,
              "adultPassenger" = adultPassenger,
              "femaleChildPassenger" = femaleChildPassenger,
              "maleChildPassenger" = maleChildPassenger,
              "femaleAdultPassenger" = femaleAdultPassenger,
              "maleAdultPassenger" = maleAdultPassenger,
              "firstClassPassenger" = firstClassPassenger,
              "secoundClassPassenger" = secoundClassPassenger,
              "thirdClassPassenger" = thirdClassPassenger,
              "firstClassFemalePassenger" = firstClassFemalePassenger,
              "secoundClassFemalePassenger" = secoundClassFemalePassenger,
              "thirdClassFemalePassenger" = thirdClassFemalePassenger,
              "firstClassMalePassenger" = firstClassMalePassenger,
              "secoundClassMalePassenger" = secoundClassMalePassenger,
              "thirdClassMalePassenger" = thirdClassMalePassenger,
              "firstClassChildPassenger" = firstClassChildPassenger,
              "secoundClassChildPassenger" = secoundClassChildPassenger,
              "thirdClassChildPassenger" = thirdClassChildPassenger,
              "firstClassAdultPassenger" = firstClassAdultPassenger,
              "secoundClassAdultPassenger" = secoundClassAdultPassenger,
              "thirdClassAdultPassenger" = thirdClassAdultPassenger,
              "firstClassFemaleChildPassenger" = firstClassFemaleChildPassenger,
              "secoundClassFemaleChildPassenger" = secoundClassFemaleChildPassenger,
              "thirdClassFemaleChildPassenger" = thirdClassFemaleChildPassenger,
              "firstClassFemaleAdultPassenger" = firstClassFemaleAdultPassenger,
              "secoundClassFemaleAdultPassenger" = secoundClassFemaleAdultPassenger,
              "thirdClassFemaleAdultPassenger" = thirdClassFemaleAdultPassenger,
              "firstClassMaleChildPassenger" = firstClassMaleChildPassenger,
              "secoundClassMaleChildPassenger" = secoundClassMaleChildPassenger,
              "thirdClassMaleChildPassenger" = thirdClassMaleChildPassenger,
              "firstClassMaleAdultPassenger" = firstClassMaleAdultPassenger,
              "secoundClassMaleAdultPassenger" = secoundClassMaleAdultPassenger,
              "thirdClassMaleAdultPassenger" = thirdClassMaleAdultPassenger))
  
}