MINI Project

library(rvest)

## Warning: package 'rvest' was built under R version 4.4.2

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

Question 1

data(cars)

median_value <- median(cars[,1])

print(median_value)

## [1] 15

Question 3

readme_text <- readLines("OTP_readme.html")

on_time_data <- read.csv("On_Time_Performance.csv", stringsAsFactors = FALSE)

sum(is.na(on_time_data$Div2WheelsOff))

## [1] 570122

Question 4

avg_dep_delay <- on_time_data %>%
  group_by(UniqueCarrier) %>%
  summarise(AvgDepDelay = mean(DepDelay, na.rm = TRUE)) %>%
  arrange(desc(AvgDepDelay)) 

largest_delay_carrier <- avg_dep_delay$UniqueCarrier[1]
print(largest_delay_carrier)

## [1] "B6"

Question 5

library(jsonlite)

url <- "https://min-api.cryptocompare.com/data/v2/histoday?fsym=BTC&tsym=USD&limit=100"

btc_data <- fromJSON(url)


btc_prices <- btc_data$Data$Data

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

print(max_close_price)

## [1] 106155.6