R_Bridge_HW2

airport <- read.csv("https://raw.githubusercontent.com/Patel-Krutika/Bridge_2021/main/airports.csv")
summary(airport)

##        X              faa                name                lat       
##  Min.   :   1.0   Length:1458        Length:1458        Min.   :19.72  
##  1st Qu.: 365.2   Class :character   Class :character   1st Qu.:34.26  
##  Median : 729.5   Mode  :character   Mode  :character   Median :40.09  
##  Mean   : 729.5                                         Mean   :41.65  
##  3rd Qu.:1093.8                                         3rd Qu.:45.07  
##  Max.   :1458.0                                         Max.   :72.27  
##       lon               alt                tz              dst           
##  Min.   :-176.65   Min.   : -54.00   Min.   :-10.000   Length:1458       
##  1st Qu.:-119.19   1st Qu.:  70.25   1st Qu.: -8.000   Class :character  
##  Median : -94.66   Median : 473.00   Median : -6.000   Mode  :character  
##  Mean   :-103.39   Mean   :1001.42   Mean   : -6.519                     
##  3rd Qu.: -82.52   3rd Qu.:1062.50   3rd Qu.: -5.000                     
##  Max.   : 174.11   Max.   :9078.00   Max.   :  8.000                     
##     tzone          
##  Length:1458       
##  Class :character  
##  Mode  :character  
##                    
##                    
## 

lat_m <- mean(airport$lat)
lat_m

## [1] 41.64801

lon_m <- mean(airport$lon)
lon_m

## [1] -103.3923

lat_med <- median(airport$lat)
lat_med

## [1] 40.08772

lon_med <- median(airport$lon)
lon_med

## [1] -94.66185

lat <- airport$lat
lon <- airport$lon   
alt <- airport$alt
dst <- airport$dst

Airports <- data.frame(Latitude = lat, Longitude = lon, Altitude = alt, Destination = dst)

summary(Airports)

##     Latitude       Longitude          Altitude       Destination       
##  Min.   :19.72   Min.   :-176.65   Min.   : -54.00   Length:1458       
##  1st Qu.:34.26   1st Qu.:-119.19   1st Qu.:  70.25   Class :character  
##  Median :40.09   Median : -94.66   Median : 473.00   Mode  :character  
##  Mean   :41.65   Mean   :-103.39   Mean   :1001.42                     
##  3rd Qu.:45.07   3rd Qu.: -82.52   3rd Qu.:1062.50                     
##  Max.   :72.27   Max.   : 174.11   Max.   :9078.00

lat_m <- mean(Airports$Latitude)
lat_m

## [1] 41.64801

lon_m <- mean(Airports$Longitude)
lon_m

## [1] -103.3923

lat_med <- median(Airports$Latitude)
lat_med

## [1] 40.08772

lon_med <- median(Airports$Longitude)
lon_med

## [1] -94.66185

summary(Airports)

##     Latitude       Longitude          Altitude       Destination       
##  Min.   :19.72   Min.   :-176.65   Min.   : -54.00   Length:1458       
##  1st Qu.:34.26   1st Qu.:-119.19   1st Qu.:  70.25   Class :character  
##  Median :40.09   Median : -94.66   Median : 473.00   Mode  :character  
##  Mean   :41.65   Mean   :-103.39   Mean   :1001.42                     
##  3rd Qu.:45.07   3rd Qu.: -82.52   3rd Qu.:1062.50                     
##  Max.   :72.27   Max.   : 174.11   Max.   :9078.00

Airports$Destination[Airports$Destination == "A"] <- "Standard US DST"
Airports$Destination[Airports$Destination == "U"] <- "Unknown"
Airports$Destination[Airports$Destination == "N"] <- "No DST"

Airports$Destination[160:180]

##  [1] "Standard US DST" "Standard US DST" "Unknown"         "Standard US DST"
##  [5] "Standard US DST" "Standard US DST" "Unknown"         "Standard US DST"
##  [9] "No DST"          "Standard US DST" "Standard US DST" "Standard US DST"
## [13] "Standard US DST" "Standard US DST" "Standard US DST" "Standard US DST"
## [17] "Standard US DST" "Standard US DST" "Standard US DST" "Standard US DST"
## [21] "Standard US DST"