Commit 1c2d6afc authored by linushof's avatar linushof
Browse files

Round results to 2 digits

parent f0cd1c43
...@@ -37,7 +37,7 @@ generate_gambles <- function(n, safe = TRUE, lower, upper) { ...@@ -37,7 +37,7 @@ generate_gambles <- function(n, safe = TRUE, lower, upper) {
# add gamble features that are determined by the random samples from above # add gamble features that are determined by the random samples from above
# compute and compare expected values # compute and compare expected values
mutate(a_p2 = 1-a_p1, mutate(a_p2 = round(1-a_p1,2),
b_o2 = 0, b_o2 = 0,
b_p1 = 1, b_p1 = 1,
b_p2 = 0, b_p2 = 0,
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment