BTC

summary(cars)

##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00

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

max_close
[1] 124723