bwi-vs-jfk-and-ewr-analysis – OR 568 Machine Learning Project

###################################################
# Code to Load Data from S3
###################################################
library(dplyr)


Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

library(janitor)


Attaching package: 'janitor'

The following objects are masked from 'package:stats':

    chisq.test, fisher.test

notebook_dir <- dirname(knitr::current_input(dir = TRUE))

util_path <- normalizePath(
  file.path(
    notebook_dir,
    "..", "..", "..",
    "common_utils", "r", "load_flight_data.r"
  ),
  winslash = "/",
  mustWork = TRUE
)

source(util_path)

# Load data and clean column names
enriched_flights_2019 <- load_flight_data() %>%
  janitor::clean_names()

###################################################
# End Code to Load Data from S3
###################################################