setwd("C:/Office/Week 3 Day 5")
Airlinesdata.df <-read.csv(paste("SixAirlinesDataV2.csv"))
View(Airlinesdata.df)
summary(Airlinesdata.df)
##       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.df$SeatsEconomy, Airlinesdata.df$Airline)

boxplot(Airlinesdata.df$SeatsEconomy, Airlinesdata.df$Airline)

hist(Airlinesdata.df$SeatsEconomy,breaks = 100, xlim= c(70,250))

hist(Airlinesdata.df$SeatsPremium,breaks = 100, xlim= c(0,100))

hist(Airlinesdata.df$WidthEconomy,breaks = 100, xlim= c(0,40))

hist(Airlinesdata.df$WidthPremium,breaks = 100, xlim= c(0,40))

hist(Airlinesdata.df$PitchEconomy,breaks = 100,)

hist(Airlinesdata.df$PitchPremium,breaks = 100,)

t.test(Airlinesdata.df$PriceEconomy~Airlinesdata.df$Aircraft, var.equal = TRUE)
## 
##  Two Sample t-test
## 
## data:  Airlinesdata.df$PriceEconomy by Airlinesdata.df$Aircraft
## t = 0.65077, df = 456, p-value = 0.5155
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -129.1984  257.1317
## sample estimates:
## mean in group AirBus mean in group Boeing 
##             1369.954             1305.987

Y= Relative Price, X1=PitchEconomy, X2=PitchPremium, X3=WidthEconomy, X4=WidthPremium,X5= SeatsEconomy, X6=SeatsPremium

lm(Airlinesdata.df$PriceEconomy~Airlinesdata.df$PricePremium)
## 
## Call:
## lm(formula = Airlinesdata.df$PriceEconomy ~ Airlinesdata.df$PricePremium)
## 
## Coefficients:
##                  (Intercept)  Airlinesdata.df$PricePremium  
##                      50.9767                        0.6916