powered by
composition(...)
f <- composition(mean, log, function(x) x^2) f(1:10) == mean(log((1:10)^2))
Run the code above in your browser using DataLab