从字符串中获取函数

Question

在Burn's R Inferno中，p。 65，可以找到以下代码：

funs <- c(’mean’, ’median’)
eval(as.name(funs[2]))(data)

然而，对我而言，这会产生：

Error in sort.int(x, na.last = na.last, decreasing = decreasing, ...) : 
  'x' must be atomic
In addition: Warning message:
In is.na(x) : is.na() applied to non-(list or vector) of type 'closure'

我做错了什么？这是书中的错误/错字吗？