calc_pr_guess function

Calculate the probability that the observer will try to guess the rule