2024-11-17

Data Source

  • For this project, I used approximations of publicly available data from the following:
  • Wikipedia.org
  • AirTravelAnalysis.com

Create the data frame for the project

aircraftSpecifications <- data.frame(
  ProductionYear = c(1969, 1989, 1995, 2004, 2011, 
                    2014, 2017, 2018, 2020, 2023),
  AircraftModel = c("Boeing 747-100", "Boeing 747-400", 
                    "Boeing 777-200", "Boeing 777-300ER",
                    "Boeing 787-8", "Airbus A350-900", 
                    "Airbus A350-1000", "Boeing 787-10",
                    "Airbus A220-300", "Boeing 777-200LR"),
  Manufacturer = c("Boeing", "Boeing", "Boeing", "Boeing", "Boeing",
                   "Airbus", "Airbus", "Boeing", "Airbus", "Boeing"),
  FuelCapacity = c(48445, 57285, 63034, 63034, 33384, 
                   44100, 44100, 33384, 12300, 63034),
  TakeoffWeight = c(73500, 875000, 660000, 775000, 502500, 
                           617000, 775000, 560000, 133000, 775000),
  EstimatedRange = c(6100, 7200, 7700, 7900, 7650, 
                     8000, 8000, 7600, 3350, 7900)
)

Dataset Overview

ProductionYear AircraftModel Manufacturer FuelCapacity TakeoffWeight EstimatedRange
1969 Boeing 747-100 Boeing 48445 73500 6100
1989 Boeing 747-400 Boeing 57285 875000 7200
1995 Boeing 777-200 Boeing 63034 660000 7700
2004 Boeing 777-300ER Boeing 63034 775000 7900
2011 Boeing 787-8 Boeing 33384 502500 7650
2014 Airbus A350-900 Airbus 44100 617000 8000
2017 Airbus A350-1000 Airbus 44100 775000 8000
2018 Boeing 787-10 Boeing 33384 560000 7600
2020 Airbus A220-300 Airbus 12300 133000 3350
2023 Boeing 777-200LR Boeing 63034 775000 7900

Histogram of Aircraft Ranges

Scatter Plot with trend line

## `geom_smooth()` using formula = 'y ~ x'

Linear Regression Analysis

## 
## Call:
## lm(formula = EstimatedRange ~ ProductionYear, data = aircraftSpecifications)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -3865.0   212.2   551.1   745.3   817.1 
## 
## Coefficients:
##                 Estimate Std. Error t value Pr(>|t|)
## (Intercept)    -3609.161  60046.823  -0.060    0.954
## ProductionYear     5.359     29.933   0.179    0.862
## 
## Residual standard error: 1533 on 8 degrees of freedom
## Multiple R-squared:  0.00399,    Adjusted R-squared:  -0.1205 
## F-statistic: 0.03205 on 1 and 8 DF,  p-value: 0.8624

Residuals vs Fitted Values Plot

3D Scatter Plot of Contributions to Aircraft Range