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