## Not run:
# wallet <- market.api.process('kraken',c('BTC','EUR'),'wallet', key = '', secret = '')
# Sys.sleep(10)
# open_orders <- market.api.process('kraken',c('BTC','EUR'),'open_orders', key = '', secret = '')
# aw <- available_wallet(wallet, open_orders, verbose = 1)
# print(aw)
# ## End(Not run)
Run the code above in your browser using DataLab