Plot[BesselI[1, z], {z, 0, 20}]