# \donttest{
mat <- matrix(c(1, 5, 2, 3, 4, 1, 6, 2), ncol = 2)
ed <- empirical_dist(mat)
# Condition on first column being greater than second
ed_cond <- conditional(ed, function(d) d[1] > d[2])
nobs(ed_cond)
# }
Run the code above in your browser using DataLab