使用data.table进行快速计算均值的函数

Question

我使用data.table创建了一个函数来快速计算平均值。它在脚本中运行良好，但在我将其安装到库中后它不起作用。错误消息为："Error in .subset(x, j) : invalid subscript type 'list'"。在此先感谢您的帮助。

fastMean <- function(x,byCols=c('id')){
  library(data.table)
  dt = data.table(x)
  msf=dt[, lapply(.SD, mean),by=byCols]
  return(msf)
}
mean <- fastMean(iris,byCols=c('Species'))