# cited from: https://www.r-bloggers.com/querying-the-bitcoin-blockchain-with-r/
# install.packages("Rbitcoin")
library(Rbitcoin)


1. 以Public API下載匯率

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')