# load data

Research question

To find the most safest airline

Cases

Each case is the summary for each airline’s incidents. Total 57 cases.

Data collection

The data is collected from aviation safety network. Most of the information contained in the Aviation Safety Network site is based on information from official sources (authorities, safety boards). Sources used as a basis for the accident database are aircraft production lists, ICAO Aircraft Accident Digests since 1952, and NTSB, TSB etc.

Type of study

This is observational study

Data Source

*https://github.com/fivethirtyeight/data/tree/master/airline-safety*

Response

The response variable is airline. It is a categorical variable.

Explanatory

The response variable incidents, fatal accidents and fatalities

Relevant summary statistics

library(RCurl)
## Loading required package: bitops
AData <- getURL("https://raw.githubusercontent.com/fivethirtyeight/data/master/airline-safety/airline-safety.csv")
AData2 <- read.csv(text = AData)
AirData <- data.frame(AData2)

# Summary of Fata Acc. 1985 - 1999
summary(AirData$fatal_accidents_85_99)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   0.000   0.000   1.000   2.179   3.000  14.000
# Summary of Fataly Accidents 2000 - 2014
summary(AirData$fatal_accidents_00_14)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##  0.0000  0.0000  0.0000  0.6607  1.0000  3.0000
## As per the summary of the both the period (1985-1999, 2000 - 2014). the later period was comparatively much more safe.

MaxFatalAcc99 <- which.max(AirData$fatal_accidents_85_99)
MaxFatalAcc99
## [1] 2
MaxFatalAcc14 <- which.max(AirData$fatal_accidents_00_14)
MaxFatalAcc14
## [1] 12

As per the summary of the both the period (1985-1999, 2000 - 2014), the later period was comparatively much more safe.