Nothing
DrawProbability <- function(epsilon = 0.7404666, beta = 25 / 6, total_players = 2) {
return(2 * pnorm(epsilon / sqrt(total_players)) * beta - 1)
}
DrawMargin <- function(draw_probability = 0.10, beta = 25 / 6, total_players = 2) {
return(qnorm((draw_probability + 1.0) / 2) * sqrt(total_players) * beta)
}
# default inputs are
# INITIAL_MU = 25.0
# INITIAL_SIGMA = INITIAL_MU / 3.0
# INITIAL_BETA = INITIAL_SIGMA / 2.0
# INITIAL_GAMMA = INITIAL_SIGMA / 100.0
# DRAW_PROBABILITY = 0.10
# INITIAL_EPSILON = DrawMargin(DRAW_PROBABILITY, BETA)
Parameters <- setRefClass('Parameters',
fields = list(beta = "numeric", epsilon = "numeric", gamma = "numeric"),
methods = list(
initialize = function(beta = 25 / 6, epsilon = DrawMargin(draw_probability = 0.1, beta = 25 / 6), gamma = 25 / 300) {
.self$beta <- beta
.self$epsilon <- epsilon
.self$gamma <- gamma
},
show = function() {
print(sprintf("Parameters [(beta, epilson, gamma)]: [(%s, %s, %s)]",
round(beta, 3), round(epsilon, 3), round(gamma, 3)))
}
)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.