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.
- For the latest stable release:
install.packages("Rnumerai") - For the latest development release:
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_traindata_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 periodstatus_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()uinfonames(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_inforound_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
