AirlinesData <- read.csv("E:/Documents/internship-R/SixAirlinesDataV2.csv")
View(AirlinesData)
summary(AirlinesData)
## Airline Aircraft FlightDuration TravelMonth
## AirFrance: 74 AirBus:151 Min. : 1.250 Aug:127
## British :175 Boeing:307 1st Qu.: 4.260 Jul: 75
## Delta : 46 Median : 7.790 Oct:127
## Jet : 61 Mean : 7.578 Sep:129
## Singapore: 40 3rd Qu.:10.620
## Virgin : 62 Max. :14.660
## IsInternational SeatsEconomy SeatsPremium PitchEconomy
## Domestic : 40 Min. : 78.0 Min. : 8.00 Min. :30.00
## International:418 1st Qu.:133.0 1st Qu.:21.00 1st Qu.:31.00
## Median :185.0 Median :36.00 Median :31.00
## Mean :202.3 Mean :33.65 Mean :31.22
## 3rd Qu.:243.0 3rd Qu.:40.00 3rd Qu.:32.00
## Max. :389.0 Max. :66.00 Max. :33.00
## PitchPremium WidthEconomy WidthPremium PriceEconomy
## Min. :34.00 Min. :17.00 Min. :17.00 Min. : 65
## 1st Qu.:38.00 1st Qu.:18.00 1st Qu.:19.00 1st Qu.: 413
## Median :38.00 Median :18.00 Median :19.00 Median :1242
## Mean :37.91 Mean :17.84 Mean :19.47 Mean :1327
## 3rd Qu.:38.00 3rd Qu.:18.00 3rd Qu.:21.00 3rd Qu.:1909
## Max. :40.00 Max. :19.00 Max. :21.00 Max. :3593
## PricePremium PriceRelative SeatsTotal PitchDifference
## Min. : 86.0 Min. :0.0200 Min. : 98 Min. : 2.000
## 1st Qu.: 528.8 1st Qu.:0.1000 1st Qu.:166 1st Qu.: 6.000
## Median :1737.0 Median :0.3650 Median :227 Median : 7.000
## Mean :1845.3 Mean :0.4872 Mean :236 Mean : 6.688
## 3rd Qu.:2989.0 3rd Qu.:0.7400 3rd Qu.:279 3rd Qu.: 7.000
## Max. :7414.0 Max. :1.8900 Max. :441 Max. :10.000
## WidthDifference PercentPremiumSeats
## Min. :0.000 Min. : 4.71
## 1st Qu.:1.000 1st Qu.:12.28
## Median :1.000 Median :13.21
## Mean :1.633 Mean :14.65
## 3rd Qu.:3.000 3rd Qu.:15.36
## Max. :4.000 Max. :24.69
plot(AirlinesData$Airline,AirlinesData$SeatsEconomy, main="Airline and The Total Number of seats in Economy Class",col = c("green","red","blue","yellow","grey","orange"))
plot(AirlinesData$Airline,AirlinesData$SeatsPremium, main="Airline and The Total Number of seats in Premium Class",col = c("green","blue","red","yellow","orange","pink"))
plot(AirlinesData$TravelMonth,main = "Monthly Travel",col="grey")
plot(AirlinesData$IsInternational,main = " This Graph shows the number of the domestic and the international flights",col="blue")
par(mfrow=c(1,2))
hist(AirlinesData$PitchEconomy, xlab="Economy Seats Pitch",col = "red",main="Economy class ")
hist(AirlinesData$PitchPremium, xlab="Premium Seats Pitch",col = "blue",main="Premium class ")
par(mfrow=c(1,2))
hist(AirlinesData$WidthEconomy, xlab="Economy Seats Width",col = "green",main="Economy class")
hist(AirlinesData$WidthPremium, xlab="Premium Seats Width",col = "yellow",main="Premium class")
par(mfrow=c(1,2))
hist(AirlinesData$PriceEconomy, xlab="Economy Seats Price",col = "light blue",main="Economy class")
hist(AirlinesData$PricePremium, xlab="Premium Seats Price",col = "navy blue",main="Premium class")
boxplot(FlightDuration~Airline,data=AirlinesData,xlab="Airline", ylab="Flight duration",col = c("blue","red","green","purple","yellow","pink"))
library(car)
## Warning: package 'car' was built under R version 3.4.3
scatterplot(PriceRelative ~PitchDifference, data=AirlinesData,
spread=FALSE, smoother.args=list(lty=2),
main="Scatter Plot of Relative Price and the Pitch Difference",
xlab="pitch difference",
ylab="price relative")
scatterplot(PriceRelative ~ WidthDifference, data= AirlinesData,
spread=FALSE, smoother.args=list(lty=2),
main="Scatterplot of Relative price and Width Difference",
xlab="Width difference",
ylab="Price relative")
library(corrgram)
## Warning: package 'corrgram' was built under R version 3.4.3
corrgram(AirlinesData, order=TRUE, upper.panel=panel.pie,lower.panel=panel.shade, text.panel=panel.txt,main="Corrgram")
t.test(AirlinesData$PriceRelative,AirlinesData$WidthDifference)
##
## Welch Two Sample t-test
##
## data: AirlinesData$PriceRelative and AirlinesData$WidthDifference
## t = -19.284, df = 585.55, p-value < 2.2e-16
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -1.262697 -1.029268
## sample estimates:
## mean of x mean of y
## 0.4872052 1.6331878
t.test(AirlinesData$PriceRelative,AirlinesData$PitchDifference)
##
## Welch Two Sample t-test
##
## data: AirlinesData$PriceRelative and AirlinesData$PitchDifference
## t = -72.974, df = 516.54, p-value < 2.2e-16
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
## -6.367495 -6.033640
## sample estimates:
## mean of x mean of y
## 0.4872052 6.6877729
model <- lm(formula = AirlinesData$PriceRelative ~ AirlinesData$WidthDifference + AirlinesData$PitchDifference, data = AirlinesData)
summary(model)
##
## Call:
## lm(formula = AirlinesData$PriceRelative ~ AirlinesData$WidthDifference +
## AirlinesData$PitchDifference, data = AirlinesData)
##
## Residuals:
## Min 1Q Median 3Q Max
## -0.84163 -0.28484 -0.07241 0.17698 1.18778
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -0.10514 0.08304 -1.266 0.206077
## AirlinesData$WidthDifference 0.11621 0.02356 4.933 1.14e-06 ***
## AirlinesData$PitchDifference 0.06019 0.01590 3.785 0.000174 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.3886 on 455 degrees of freedom
## Multiple R-squared: 0.2593, Adjusted R-squared: 0.2561
## F-statistic: 79.65 on 2 and 455 DF, p-value: < 2.2e-16