R Interface to the Numerai Machine Learning Tournament API
This interface allows download of tournament data, submit predictions, get user information, stake NMR’s and much more. Using the functions from this package end user can write R code to automate the whole procedure related to numerai tournament.
If you encounter a problem or have suggestions, feel free to open an issue.
devtools::install_github("Omni-Analytics-Group/Rnumerai")
devtools::install_github("Omni-Analytics-Group/Rnumerai")
library(Rnumerai)
Use current working directory
data_dir <- getwd()
Or use temporary directory
data_dir <- tempdir()
Or use a user specific directory
data_dir <- "~/OAG/numerai"
Get your public key and api key by going to numer.ai and then going to Custom API Keys
section under your Account
Tab. Select appropriate scopes to generate the key or select all scopes to use the full functionality of this package.
set_public_id("public_id_here")
set_api_key("api_key_here")
Optional: If we choose not to setup the credentials here the terminal will interactively prompt us to type the values when we make an API call.
data <- download_data(data_dir)
data_train <- data$data_train
data_tournament <- data$data_tournament
A user can put his/her own custom model code to generate the predictions here. For demonstration purposes, we will generate random predictions.
submission <- data.frame(id=data_tournament$id,probability = sample(seq(.3,.8,by=.1),nrow(data_tournament),replace=TRUE))
submission_id <- submit_predictions(submission, data_dir)
Sys.sleep(10) ## 10 Seconds wait period
status_submission_by_id(submission_id)
stake_tx_hash <- stake_nmr(value = 1, confidence = ".5")
stake_tx_hash
Get user information for the user whose API key and ID are entered, Check out the name of the return object to see what informations are included in the return and than subset the required information
uinfo <- user_info()
uinfo
names(uinfo)
uinfo$Latest_Submission
Get leaderboard information for a given round number (Round 51 & Above).
round_info <- round_stats(round_number=79)
round_info$round_info
round_info$round_leaderboard
Get closing time and round number for current open round
current_round()
custom_query <- 'query queryname { rounds (number:82) { closeTime } }'
run_query(query=custom_query)$data