MP

install.packages(“jsonlite”)

data(cars)
median(cars$speed)

## [1] 15

median(cars[,1])

## [1] 15

library(jsonlite)

## Warning: package 'jsonlite' was built under R version 4.3.3

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

BTC <- BT_Data$Data$Data$close
max(BTC)

## [1] 69020.94