plot(floor(x) / x, (x, -3.25, 3.25), ylim=(-1, 5),
    exclude=list(range(-4, 5)))
# Expected:
## Plot object containing:
## [0]: cartesian line: floor(x)/x for x over (-3.25, 3.25)