using Plots

plot(x->sin(x)-(x-x^3/6 + x^5/120), -0.1, 0.1)

savefig("napaka.svg")