First time here? Check out the FAQ!
answered 3 years ago
You are seeing the numerical noise around 1.
Try
plot(f,-4,4,ymin=0,ymax=2)