Pointwise mutual information in r