Mini Project #1

```Question #1 

``` r
data(cars)
median(cars[, 1])

## [1] 15

`` Question #2

#otp <- read.csv("On_time_Performance")
#str(otp)

Question #3

#sum(is.na(On_Time_Performance$Div2WheelsOff))

Question #4

#library(dplyr)

#avg_carrier_delay <- "On_Time_Performance" %>%
  #group_by(Carrier) %>%
 # summarise(avg_dep_delay = mean(DepDelay, na.rm = TRUE)) %>%
  #arrange(desc(avg_dep_delay))

Question #5

library(jsonlite)
btc <- "https://min-api.cryptocompare.com/data/v2/histoday?fsym=BTC&tsym=USD&limit=100"
btc_data <- fromJSON(btc)
btc_prices <- btc_data$Data$Data
max(btc_prices$close, na.rm = TRUE)

## [1] 106155.6

max_close_price <- max(btc_prices$close, na.rm = TRUE)
print(max_close_price)

## [1] 106155.6

```