substitute a function name in an array of functions

[szcf-weiya]

> funs = c(mean, var, sd)
> substitute(funs[1])
funs[1] # target "mean"

possible helpful reference: https://stackoverflow.com/questions/1567718/getting-a-function-name-as-a-string