我有两个功能,例如:
a <- function(x) return(mean(x))
b <- function(x) return(median(x))
我希望有另一个函数,可以传递a
或b
作为参数。
我们的目标是这样的:
oper <- function(f, x) {
ifelse(f == "a", a(x), b(x))
}
例如,如果我要执行以下函数:
oper(a, c(3,4,5))
我收到以下错误消息:
Error in f == "a" :
comparison (1) is possible only for atomic and list types
披露:平均值(x)和中位数(x)仅供参考。
1条答案
按热度按时间cbeh67ev1#
因为R有一流的函数,你可以简单地传递你的函数并直接调用它: