powered by
multi.argument.Compose(...)
f <- function(x, y) x+y g <- function(x) x*2 stopifnot(multi.argument.Compose(f, g)(1,1) == 4)
Run the code above in your browser using DataLab