library(jsonlite)

Extract Ethereum Price Data

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

eth_json <- fromJSON(eth_url)

eth_data <- eth_json$Data$Data

head(eth_data)
##         time    high     low    open volumefrom   volumeto   close
## 1 1769299200 2955.90 2784.41 2949.21   317082.6  907378236 2814.60
## 2 1769385600 2948.79 2810.11 2814.60   434223.8 1257220114 2927.58
## 3 1769472000 3031.70 2896.66 2927.58   373717.0 1104515814 3022.49
## 4 1769558400 3041.74 2979.56 3022.49   346913.9 1044241129 3006.86
## 5 1769644800 3009.40 2751.24 3006.86   510692.5 1462285771 2818.39
## 6 1769731200 2824.53 2633.69 2818.39   681864.6 1856565711 2703.23
##   conversionType conversionSymbol
## 1         direct                 
## 2         direct                 
## 3         direct                 
## 4         direct                 
## 5         direct                 
## 6         direct

Extract Bitcoin Price Data now..

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

btc_json <- fromJSON(btc_url)

btc_data <- btc_json$Data$Data

head(btc_data)
##         time     high      low     open volumefrom   volumeto    close
## 1 1769299200 89203.31 86008.64 89107.75   19788.52 1730278902 86581.03
## 2 1769385600 88787.86 86429.64 86581.03   28600.46 2509845962 88274.70
## 3 1769472000 89447.82 87212.27 88274.70   24324.97 2147188639 89136.28
## 4 1769558400 90481.33 88729.36 89136.28   27525.65 2461353227 89182.72
## 5 1769644800 89229.19 83243.73 89182.72   45122.46 3865349822 84528.58
## 6 1769731200 84612.31 81047.62 84528.58   53884.23 4468762184 84135.11
##   conversionType conversionSymbol
## 1         direct                 
## 2         direct                 
## 3         direct                 
## 4         direct                 
## 5         direct                 
## 6         direct

MY RESEARCH Qs

##How does Ethereum’s price movement relate to Bitcoin’s price movement over the last 100 days? ##What was Ethereum’s lowest daily closing price over the last 100 days, and on what date did it occur? ##What factors appear to contribute to the price volatility of Ethereum based on daily price changes and trading activity? ##Does higher trading volume in Ethereum tend to occur during major price increases or major price drops over the last 100 days?