Plot[{BesselI[1, 2 x]/BesselI[0, 2 x], 1/2 BesselI[1, x]/BesselI[0, x]}, {x, -3, 3}]