调用函数时出错（无效长度参数）

Question

我正在编写一个函数来检查数据框中数字列的平均值。下面是我写的代码。

means_func <- function(x)
{
    nc <- ncol(sapply(x,is.numeric))    #selecting numeric columns only
    means <- numeric(nc)                #assigning result
    for (i in nc)
    {
    means[i] <- mean(x[i])
    }
    means
}
means_func(airquality)   #calling the function

但是当我调用该函数时，我收到一个错误 数字（nc）出错：无效的'长度'参数