ML.Alpha function

Maximum likelihood estimate and intervals of alpha, null expectation and p-value of a 2x2 table