testData/parser/r/FunctionAsCallArgument.r (
2
lines of code) (
raw
):
wtd.means = by(firms, size.category, function(piece) (sum(piece$mktcap*piece$spread)/sum(piece$mktcap)))