Mini Project ~ Katie Quinn

pacman::p_load(jsonlite,httr)

library(dplyr)
library(httr)
library(jsonlite)
library(dplyr)
library(httr)

data("cars")
cars

Question 1.

median(cars$speed)

[1] 15

on_time_preformance <- read.csv("On_Time_Performance.csv")
on_time_preformance

Question 2.

dim(on_time_preformance) 

[1] 570131    110

nrow(on_time_preformance)

[1] 570131

ncol(on_time_preformance)

[1] 110

Question 3.

sum(is.na(on_time_preformance$Div2WheelsOff))

[1] 570122

Question 4.

library(dplyr)

avg_delay_by_carrier <- on_time_preformance %>%
  group_by(Carrier) %>%  # Ensure 'Carrier' is the correct column name
  summarise(avg_dep_delay = mean(DepDelayMinutes, na.rm = TRUE)) %>%  # Use 'DepDelayMinutes'
  arrange(desc(avg_dep_delay))  # Sort in descending order

print(avg_delay_by_carrier)

largest_delay_carrier <- avg_delay_by_carrier %>%
  slice(1)  # Select the top carrier

print(largest_delay_carrier)

Question 5.

# Define the API endpoint
url <- "https://min-api.cryptocompare.com/data/v2/histoday"

# Define parameters
params <- list(
  fsym = "BTC",      # Cryptocurrency symbol (Bitcoin)
  tsym = "USD",      # Measured in USD
  limit = 100        # Last 100 days
)

# Send GET request with parameters
response <- GET(url, query = params)

# Parse JSON response
BT_Data <- fromJSON(content(response, as = "text"))

# Extract closing prices
BTC <- BT_Data$Data$Data$close

# Check if BTC contains valid data
if (length(BTC) > 0 && all(!is.na(BTC))) {
  print(max(BTC))  # Get max closing price
} else {
  print("No valid data retrieved.")
}

[1] 106155.6