Menemukan Nilai di Singapore Pools

Dari semua tempat, ini adalah tempat terakhir yang saya harapkan untuk menemukan nilai. Tapi saya menemukannya - konon!

Saya membandingkan Odds Singapore Pools dengan probabilitas tim yang memenangkan berbagai liga dari blog Fivethirtyeight.

Spread di Singapore Pools sering kali gila. Dalam pertandingan 1X2 biasa, odds sekitar 15% - dibandingkan dengan spread 3% di rumah taruhan luar negeri - yang ilegal di Singapura.

Spread hanyalah penjumlahan invers dari semua odds desimal dikurangi 1. Jumlah yang Anda berikan ke 'rumah'.

Seperti halnya blog ini tentang analitik dan menunjukkan kemampuan saya, ini juga tentang memiliki 'skin in the game'.

Pengungkapan: Saya bertaruh 280 dolar pada Barcelona untuk memenangkan Liga Champions pada awal Maret. Mengapa $280? Saya pikir itu adalah jumlah uang tunai yang saya miliki di dompet saat itu. Saya baru sadar Barcelona kalah 3-0 hari ini. Itu seperti peristiwa angsa hitam. Saya dalam posisi untung - terminologi opsi - odds 5 dolar turun menjadi 3 dolar. Tapi poof! Yah. Itu adalah sesuatu yang harus saya terima dalam permainan probabilitas.

Ini analisis singkat saya. Selamat menikmati!

#Menganalisis odds Liga Champions UEFAdat_cl = data(tim = c("real","bayern","barca","manu","mancity","jue"), sg = c(4.5,5,5,15,3.3,8), five = c(1/0.15,1/0.19,1/0.22,1/0.02,1/0.15,1/0.13))dat_cl$underval = ifelse(dat_cl$five < dat_cl$sg,1,0)print(dat_cl)

## tim sg five underval## 1 real 4.5 6.666667 0## 2 bayern 5.0 5.263158 0## 3 barca 5.0 4.545455 1## 4 manu 15.0 50.000000 0## 5 mancity 3.3 6.666667 0## 6 jue 8.0 7.692308 1

#Liga Championshipdat_champ = data(tim = c("wolf","cardiff","aston","fulham"), sg = c(1.03,5,15,30), five = c(1/0.85,1/0.1,1/0.03,1/0.01))dat_champ$underval = ifelse(dat_champ$five < dat_champ$sg,1,0)print(dat_champ)

## tim sg five underval## 1 wolf 1.03 1.176471 0## 2 cardiff 5.00 10.000000 0## 3 aston 15.00 33.333333 0## 4 fulham 30.00 100.000000 0

#europadat_eur = data(tim = c("ath","dort","ars","lazio","mars","rb_lei","lyon","ac","cska","sport","ath_bil","rb_sal","zenit","dyn"), sg = c(2.9,5,6,9.5,17,10,12,11,40,15,17,150,40,80), five = c(1/0.26,1/0.11,1/0.09,1/0.08,1/0.06,1/0.06,1/0.05,1/0.05,1/0.04,1/0.04,1/0.04,1/0.03,1/0.03,1/0.03))dat_eur$underval = ifelse(dat_eur$five < dat_eur$sg,1,0)print(dat_eur)

## tim sg five underval## 1 ath 2.9 3.846154 0## 2 dort 5.0 9.090909 0## 3 ars 6.0 11.111111 0## 4 lazio 9.5 12.500000 0## 5 mars 17.0 16.666667 1## 6 rb_lei 10.0 16.666667 0## 7 lyon 12.0 20.000000 0## 8 ac 11.0 20.000000 0## 9 cska 40.0 25.000000 1## 10 sport 15.0 25.000000 0## 11 ath_bil 17.0 25.000000 0## 12 rb_sal 150.0 33.333333 1## 13 zenit 40.0 33.333333 1## 14 dyn 80.0 33.333333 1