Plot[InverseErf[0, s], {s, -3, 3}]