Negate a function; borrowed from src/library/base/R/funprog.R for pre-2.7 Rs.
Negate(f)
f
The negated function