Plot[Abs[Exp[Sin[x]] - (1+x+x^2+x^3)],{x,-0.1,0.1}]