QP_Probability(score, q_p, q_m, q_z, q_r, n_p, n_m, n_z, epsilon = 1e-16)
QP_Pmf
, QP_Pvalue
, QP_SigPvalue
# Computing The probability of score 50
# for the given table margins.
prob <- QP_Probability(0,50,50,50,0,50,50,50)
Run the code above in your browser using DataLab