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