plot(expr, (x, -5, 5), ylim=(-5, 5))