# cited from: https://www.r-bloggers.com/querying-the-bitcoin-blockchain-with-r/
# install.packages("Rbitcoin")
library(Rbitcoin)
Bitcoin屬於permissionless的blockchain,任何人都可以使用Public API下載匯率資料:
wait <- antiddos(market = 'kraken', antispam_interval = 5, verbose = 1)
market.api.process('kraken',c('BTC','EUR'),'ticker')
## market base quote timestamp market_timestamp last vwap
## 1: kraken BTC EUR 2017-11-18 21:30:06 <NA> 6570 6579.426
## volume ask bid
## 1: 6089.515 6570 6562.8
trades <- market.api.process('kraken',c('BTC','EUR'),'trades')
Rbitcoin.plot(trades, col='blue')