plot(expr, (x, -15, 15))
# Expected:
## Plot object containing:
## [0]: cartesian line: x*sin(20*x) - 2*Abs(x) + 6 for x over (-15, 15)