確率
| home | away | W | D | L |
|---|---|---|---|---|
| 仙台 | 広島 | 0.2665 | 0.2335 | 0.4999 |
| 川崎 | 柏 | 0.4648 | 0.2382 | 0.2969 |
| 湘南 | G大阪 | 0.2537 | 0.2647 | 0.4817 |
| 神戸 | 浦和 | 0.2982 | 0.2409 | 0.4609 |
| 鳥栖 | 新潟 | 0.3623 | 0.3013 | 0.3364 |
今週のポイント
広島のアウェイ勝利
| home | away | 選択 | 結果 | 的中 |
|---|---|---|---|---|
| 仙台 | 広島 | 0 | 0 | ○ |
| 川崎 | 柏 | 3,0 | 0 | ○ |
| 湘南 | G大阪 | 1,0 | 0 | ○ |
| 神戸 | 浦和 | 1,0 | 3 | ❌ |
| 鳥栖 | 新潟 | 3,1 | 3 | ○ |
結果発表
神戸浦和戦をはずしました。4/5
購入
仙台～広島 0
それ以外の試合の選択範囲でランダム。
予想が大事だ。運も必要となる。
1000円で購入。
コード
pred_1 <- c(0)
pred_2 <- c(3,0)
pred_3 <- c(1,0)
pred_4 <- c(1,0)
pred_5 <- c(3,1)
my_prediction <- expand.grid(No.1 = pred_1, No.2 = pred_2, No.3 = pred_3, No.4 = pred_4, No.5 = pred_5)
random <- runif( length(pred_1) * length(pred_2) * length(pred_3) * length(pred_4) * length(pred_5) , 0, 1 )
head( my_prediction[ order(random), ], 10 )