# load stodom
require(stodom)
data_a <- rnorm(500, 3, 2)
data_b <- rnorm(500, 1, 2)
# estimate second-order stochastic dominance
so_stodom(data_1 = data_a, data_2 = data_b, n_draws = 100, useed = 1, bins_size = 1)
Run the code above in your browser using DataLab