Negate a function; borrowed from src/library/base/R/funprog.R for pre-2.7 Rs.
Negate a function; borrowed from src/library/base/R/funprog.R for pre-2.7 Rs.
Negate(f)
f |
the function to be negated |
The negated function
is.even <- function(a) a%%2 == 0 is.odd <- Negate(is.even) stopifnot(Reduce(`&&`, Map(is.odd, c(1, 3, 5))))
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.