Este pacote R fornece algumas funções simples para permitir a interação com o serviço RESTful API do Matchbook.com. Leia atentamente a documentação de cada função individual antes de usar. É necessária uma conta registrada no Matchbook.com para usar este pacote. Por favor, leia a documentação completamente antes de usar.
Para instalar o pacote é necessária a biblioteca devtools:
library(devtools)
install_github("xanadunf/matchbook")
As duas funções a seguir auxiliam na verificação da sessão da conta
As funções a seguir permitem obter informações sobre os esportes disponíveis. Isso fornece os IDs que o Matchbook usa para cada esporte. Com eles, você pode obter todos os eventos dos esportes de seu interesse. Em seguida, você pode obter IDs de mercado e IDs de corredores para qualquer lista de IDs de eventos. Consulte a documentação do R para obter mais detalhes sobre isso.
I A função a seguir pode ser usada para obter detalhes de quaisquer apostas que foram feitas, mas ainda não liquidadas. Podem ser obtidos detalhes de apostas não correspondidas e correspondidas. Veja a documentação do R para mais detalhes (por exemplo? mb_get_bets)
As funções a seguir fornecem a funcionalidade básica de apostas.
Para obter detalhes sobre as apostas que foram liquidadas, pode ser utilizada a seguinte função. Novamente, os parâmetros completos da função podem ser vistos na documentação do R (?mb_get_settled)
Isso deve ajudá-lo a começar a trabalhar em um tempo muito curto, desde que você atenda aos pré-requisitos. Vamos definir uma meta neste tutorial para fazer uma aposta no primeiro jogo de futebol que encontrarmos que contenha o nome ‘homem’. Iremos proceder a uma aposta a favor de 5 EUR (ou qualquer que seja a moeda da sua conta) na equipa da casa para ganhar o jogo com probabilidades de 1,10.
Para começar, você precisa fazer login com as credenciais da sua conta Matchbook.com.
library(devtools)
install_github("xanadunf/matchbook")
library(matchbook)
username <- "my_user_name" ### replace with your username
password <- "verysafepassword" ### replace with your password
session_details <- mb_login(username,password)
Como apostamos no futebol, precisamos descobrir a identidade desse esporte.
sport_id_data <- mb_get_sports(session_details)
sport_id_data
football_sport_id <- sport_id_data$id[which(sport_id_data$name=="Soccer")]
football_sport_id
Pelos resultados, podemos perceber que o futebol tem esporte id=15. Podemos usar isso para obter qualquer evento de futebol com um time contendo a string 'man'.
event_data <- mb_get_events(session_data=session_details,sport_ids=football_sport_id)
event_data[grep(tolower("man"), tolower(event_data$name)),]
test_event_id <- event_data$id[grep(tolower("man"), tolower(event_data$name))[1]]
test_event_id
Obviamente, dependendo de quando você executa isso, você pode ter muitos ou nenhum resultado. Se você não encontrar um resultado positivo, troque 'homem' pelo nome de um time de futebol que você sabe que jogará em breve. Então, vamos obter todos os dados de mercado para este evento. Como queremos apostar no resultado do jogo, tentaremos extrair o tipo de mercado ‘vencedor único’.
market_data <- mb_get_markets(session_data=session_details,event_id=test_event_id,include_runners=TRUE)
market_data
test_market_id <- market_data$id[market_data$'market-type'=="one_x_two"]
test_market_id
Agora que temos o mercado correto, vamos obter informações para todos os corredores deste mercado. Desta vez, incluímos o parâmetro 'include_prices=TRUE' para que possamos ver a que preço cada corredor está disponível. Além disso, vamos selecionar o corredor a partir dos dados resultantes.
runner_data <- mb_get_runners(session_data=session_details,event_id=test_event_id,market_id=test_market_id,include_prices=TRUE)
runner_data
test_runner_id <- runner_data$id[grep("man", runner_data$name,ignore.case=TRUE)]
test_runner_id
Agora que temos detalhes sobre todos os corredores, vamos obter detalhes sobre os preços dos corredores que selecionamos.
prices_data <- runner_data$prices[[which(runner_data$id==test_runner_id)]]
prices_data_back <- prices_data[prices_data$side=="back",]
best_available_current_price <- min(prices_data_back$'decimal-odds') # min because we are backing, use the max if you are laying.
Agora que encontramos os níveis de preços em que podemos apostar (o volume também está disponível através de 'prices_data_back$'available-amount'') podemos fazer uma aposta no corredor que selecionamos.
mb_bet_place(session_data=session_details,runner_id=test_runner_id,side='back',stake=5,odds=1.10)
mb_get_bets(session_data=session_details)
Quando a aposta é feita, é importante examinar o status da aposta. Se o status for 'correspondente', então você foi correspondido pelo preço fornecido. Se estiver 'aberta', a aposta não foi totalmente correspondida. Para mais detalhes sobre as apostas realizadas consulte a documentação: ?mb_bet_place
mb_get_bets(session_data=my_session,runner_id=test_runner_id)
Este pacote está em desenvolvimento ativo e feedback e sugestões de melhorias são bem-vindas.
Crie um problema usando a área Problemas.
O SOFTWARE É FORNECIDO "COMO ESTÁ", SEM GARANTIA DE QUALQUER TIPO, EXPRESSA OU IMPLÍCITA, INCLUINDO, MAS NÃO SE LIMITANDO ÀS GARANTIAS DE COMERCIALIZAÇÃO, ADEQUAÇÃO A UM DETERMINADO FIM E NÃO VIOLAÇÃO. EM NENHUM CASO OS AUTORES OU DETENTORES DE DIREITOS AUTORAIS SERÃO RESPONSÁVEIS POR QUALQUER RECLAMAÇÃO, DANOS OU OUTRA RESPONSABILIDADE, SEJA EM UMA AÇÃO DE CONTRATO, ATO ILÍCITO OU DE OUTRA FORMA, DECORRENTE DE, OU EM CONEXÃO COM O SOFTWARE OU O USO OU OUTRAS NEGOCIAÇÕES NO SOFTWARE.