R中的花括号重复

Question

我使用以下代码在R中编写了一个函数： 当我运行它时，会出现错误消息： 这是怎么发生的？

columnmeans <- funtion(y) {
    nc <- ncol[y]
    means <- numeric(nc)
    for (i in 1:nc) {
        mean[i] <- mean(y[,i])
    }
    mean
}

我希望该功能正常运行，但是我收到了：

Error: unexpected '}' in "}"

Answer 1

您在上面的代码中有一些错误。这是一个工作版本：

columnmeans <- function(y) {
    nc <- ncol(y)
    means <- numeric(nc)
    for (i in 1:nc) {
        means[i] <- mean(y[,i])
    }
    means
}

v <- data.frame(a=1:10, b=10:1)
columnmeans(v)
[1] 5.5 5.5

您的主要问题是：

• funtion应该是function
• ncol[y]应该是ncol(y)
• mean[i]应该是means[i]
• mean应该是means