Schmalzle Mini Assignment 1

Question 1

data(cars)
head(cars)

##   speed dist
## 1     4    2
## 2     4   10
## 3     7    4
## 4     7   22
## 5     8   16
## 6     9   10

median(cars[, 1])

## [1] 15

Question 2

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

## [1] 124723