Round results to 2 digits

R/fun_generate_gambles.R

@@ -37,7 +37,7 @@ generate_gambles <- function(n, safe = TRUE, lower, upper) {
       # add gamble features that are determined by the random samples from above
       # compute and compare expected values
 
-      mutate(a_p2 = 1-a_p1,
+      mutate(a_p2 = round(1-a_p1,2),
              b_o2 = 0,
              b_p1 = 1,
              b_p2 = 0,