# Two different measures of central tendency:
# mean_hyper2(chess,tol=0.1) # takes ~10s to run
maxp(chess) # faster
# Using the 'disallowed' argument typically results in slow run times;
# use high tol for speed:
# probability(chess,disallowed=function(p){p[1]>p[2]},tol=0.5)
# probability(chess,disallowed=function(p){p[1]
Run the code above in your browser using DataLab