Create a Cryptocurrency Trading Bot In R
Start Trading Like The Top Companies
Step 0: Sign Up for Coinbase Pro (GDAX)
Coinbase Pro was formally known as GDAX.
Step 1: Login To Your Account
Log in to your Coinbase Pro account.
Step 2: Get API Key
An API Key from Coinbase Pro exchange allows third-party software access to your personal trading platform, be sure to keep this information secure. You can get there directly by using this link https://pro.coinbase.com/profile/api. Leave profile on default, and then select the appropriate permissions.
You can get the API documentation here.
Coinbase Pro
GDAX
Permissions
Permissions are the level of access you give the API key and subsequently your third-party software. These permissions give your third-party software different rights in viewing and managing your Coinbase Pro account.
Coinbase Pro offers four types of permissions: transfer, view, trade, and manage.
Transfer: Authorizes the software to transfer money to and from your account. Only use this option for a trusted computer.
View: Authorizes third-party software (like R) to view your balances and trade assets within Coinbase Pro. So they can view the information but that is it.
Trade: Allows the third-party software to trade currencies on your Coinbase Pro account.
Creating Your API Key
After selecting your permissions, click “Create API Key” at the bottom of the page. Coinbase Pro will then walk you through the authorization process and then give you your API Passphrase, API Key, and API Secret, be sure to write these down and store the information in a very safe place, as they will disappear permanently as soon as you leave the page and then you will have to create a brand new API key.
Step 3: Install R&RStudio & Write the Program/Bot
Make sure your R is up to date I am using version 3.5
Install the following R packages:
install.packages(“mailR”)
install.packages(“stringi”)
install.packages(“curl”)
install.packages(“xts”)
install.packages(“TTR”)
install.packages(“devtools”)
library(devtools)
install_github("DheerajAgarwal/rgdax", ref="dev")Run the following code:
The following code was created by Brad Lindblad, so big thank you to him and a big thank you to DheeranAgarwal for the package.
# To separate entries in logfiles
print("################## Start Log Entry ######################")
library(rgdax)
library(mailR)
library(stringi)
library(curl)
library(xts)
library(TTR)
# Build functions
curr_bal_usd <- function(x){
m <- accounts(api.key = "your_api_key", secret = "your_secret", passphrase = "your_passphrase")#[3,3]
m <- subset(m$available, m$currency == 'USD')
m
}
curr_bal_eth <- function(x){
n <- accounts(api.key = "your_api_key", secret = "your_secret", passphrase = "your_passphrase")
n <- subset(n$available, n$currency == 'ETH')
n
}
curr_ema13_api <- function(x){
df <- rgdax::public_candles(product_id = "ETH-USD",
granularity = 900)
ema13_gdax <- tail(TTR::EMA(df[,5],
n = 13),
n = 1)
ema13_gdax
}
curr_ema34_api <- function(x){
df <- rgdax::public_candles(product_id = "ETH-USD",
granularity = 900)
ema34_gdax <- tail(TTR::EMA(df[,5],
n = 34),
n = 1)
ema34_gdax
}
curr_rsi14_api <- function(x){
df <- rgdax::public_candles(product_id = "ETH-USD",
granularity = 900)
rsi_gdax <- tail(TTR::RSI(df[,5],
n = 14),
n = 1)
rsi_gdax
}
# v.2
rsi14_api_less_one <- function(x){
df <- rgdax::public_candles(product_id = "ETH-USD",
granularity = 900)
rsi_gdax_less_one <- head(tail(TTR::RSI(df[,5],
n = 14),
n = 2),n=1)
rsi_gdax_less_one
}
rsi14_api_less_two <- function(x){
df <- rgdax::public_candles(product_id = "ETH-USD",
granularity = 900)
rsi_gdax_less_two <- head(tail(TTR::RSI(df[,5],
n = 14),
n = 3),n=1)
rsi_gdax_less_two
}
rsi14_api_less_three <- function(x){
df <- rgdax::public_candles(product_id = "ETH-USD",
granularity = 900)
rsi_gdax_less_three <- head(tail(TTR::RSI(df[,5],
n = 14),
n = 4),n=1)
rsi_gdax_less_three
}
rsi14_api_less_four <- function(x){
df <- rgdax::public_candles(product_id = "ETH-USD",
granularity = 900)
rsi_gdax_less_four <- head(tail(TTR::RSI(df[,5],
n = 14),
n = 5),n=1)
rsi_gdax_less_four
}
# v.2
bid <- function(x){
bid <- public_orderbook(product_id = "ETH-USD", level = 1)
bid <- bid$bids[1]
bid
}
ask <- function(x){
ask <- public_orderbook(product_id = "ETH-USD", level = 1)
ask <- ask$asks[1]
ask
}
usd_hold <- function(x){
holds(currency = "USD", "your_api_key", "your_secret", "your_passphrase")
}
eth_hold <- function(x){
holds <- holds(currency = "ETH", "your_api_key", "your_secret", "your_passphrase")
holds
}
cancel_orders <- function(x){
cancel_orders <- cancel_order("your_api_key", "your_secret", "your_passphrase")
cancel_orders
}
buy_exe <- function(x){
# get order size in iterative manner
order_size <- round(curr_bal_usd()/ask(),3)[1]-0.005
# place initial order
while(curr_bal_eth() == 0){
#order_size <- curr_bal_usd() / ask() - 0.009
add_order(product_id = "ETH-USD", api.key = "your_api_key", secret = "your_secret", passphrase = "your_passphrase",
type="limit", price = bid(), side = "b", size = order_size )
# sleep to see if order takes
Sys.sleep(17)
# check to see if ETH bal >= order amt
if(curr_bal_eth() > 0){"buysuccess"}else{
cancel_orders() # if curr_eth_bal not > 0, cancel order and start over
}
}
}
sell_exe <- function(x){
# place initial order
while(curr_bal_eth() > 0){
add_order("ETH-USD", api.key = "your_api_key", secret = "your_secret", passphrase = "your_passphrase",
type="limit", price = ask(), side = "s", size = curr_bal_eth())
# sleep to see if order takes
Sys.sleep(17)
# check to see if ETH bal >= order amt
if(curr_bal_eth() == 0){"buysuccess"}else{
cancel_orders() # if curr_eth_bal not > 0, cancel order and start over
}
}
}
position <- (read.csv("C:/R_Directory/position.csv", header = TRUE))[1,2]
# v.2
# Store variables so don't exceed rate limit of API
curr_rsi14_api <- curr_rsi14_api()
Sys.sleep(2)
rsi14_api_less_one <- rsi14_api_less_one()
Sys.sleep(2)
rsi14_api_less_two <- rsi14_api_less_two()
Sys.sleep(2)
rsi14_api_less_three <- rsi14_api_less_three()
Sys.sleep(2)
rsi14_api_less_four <- rsi14_api_less_four()
order_price_tiered3 <- 99999
order_price_tiered5 <- 99999
order_price_tiered8 <- 99999
#v.2
# Actual Trading Loop
if(curr_bal_usd() >= 20){ # if have more than $20 USD start loop
if(curr_rsi14_api >= 30 & # and current rsi >= 35 # v.2
rsi14_api_less_one <= 30 & # previous close RSI <= 35 # v.2
rsi14_api_less_two < 30 | rsi14_api_less_three < 30 | rsi14_api_less_four < 30) { # i-2, i-3 or i-4 RSI < 35 # v.2
# 1 Buy
buy_exe()
Sys.sleep(180)
# 2 save buy price in csv on desktop
position <- write.csv(bid(), file = "C:/R_Directory/position.csv")
# 3 send email
send.mail(from = "your_username@gmail.com",
to = c("your_username@gmail.com"),
replyTo = c("Reply to someone else <your_username@gmail.com>"),
subject = "GDAX ETH Test - Buy",
body = paste("Your model says buy right now at price",bid()),
smtp = list(host.name = "smtp.gmail.com", port = 465, user.name = "your_username", passwd = "your_password", ssl = TRUE),
authenticate = TRUE,
send = TRUE)
# 4 print for logs
print("buy")
Sys.sleep(3)
# v.5
# 5 Enter tiered limit sell orders
# Order 1: take 1/3 profits at 1% gain
order_size_tiered3 <- round(curr_bal_eth()/3,3)
order_price_tiered3 <- round(bid() * 1.01,2)
Sys.sleep(1)
add_order(product_id = "ETH-USD", api.key = "your_api_key", secret = "your_secret", passphrase = "your_passphrase",
type="limit", price = order_price_tiered3, side = "s", size = order_size_tiered3 )
Sys.sleep(20)
# Order 2: take 1/3 profits at 4% gain
order_size_tiered5 <- round(curr_bal_eth()/2,3)
order_price_tiered5 <- round(bid() * 1.04,2)
add_order(product_id = "ETH-USD", api.key = "your_api_key", secret = "your_secret", passphrase = "your_passphrase",
type="limit", price = order_price_tiered5, side = "s", size = order_size_tiered5)
Sys.sleep(20)
# Order 3: take 1/3 profits at 7% gain
order_size_tiered8 <- round(curr_bal_eth(),3)
order_price_tiered8 <- round(bid() * 1.07,2)
add_order(product_id = "ETH-USD", api.key = "your_api_key", secret = "your_secret", passphrase = "your_passphrase",
type="limit", price = order_price_tiered8, side = "s", size = order_size_tiered8 )
# v.5
}else{"nobuy"}
}else{"nobuy"}
# print systime for logs
Sys.time()
print("################## End Log Entry ######################")Note: in order to send emails using GMAIL you may need to enable access to ‘less secure apps’: http://www.google.com/settings/security/lesssecureapps
Run the Program Automatically on Task Scheduler
