Solve[R0 = -log(1- P)/P, P]