Plot[Log[BesselI[{1,10},x]],{x,0,1000}]