miniproject3.5

data(cars)

##medien

data(cars)
median(cars$speed)

## [1] 15

returns 15,…

library(jsonlite)

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

data <- fromJSON(url)

btc <- data$Data$Data

max(btc$close)

## [1] 96945.09