Plot[ExpIntegralE[1, z], {z, -5, 5}]