我需要在R中为mean创建一个函数，而不使用基函数mean（）或sum（）

我知道这是一个非常简单的问题，但我对R是新手，我很难想出一个不包含和的平均函数。有人能帮忙吗？以下是我所拥有的：

newmean <- function(x)
  {mn = sum(x)/length(x)}
simple <- c(1:9)
print(newmean(simple))

但是我必须用别的东西来代替总数。我该怎么办？

一个选项可以是：

newmean <- function(x) Reduce(`+`, x)/length(x)

一种选择是：

newmean <- function(x) Reduce(`+`, x)/length(x)

一个非常基本的方法：

newmean一个非常基本的方法：

newmean您可以像下面这样尝试crossprod+rep

newmean <- function(x) c(crossprod(x,rep(1,length(x)))/length(x))

您可以像下面这样尝试crossprod+rep

newmean <- function(x) c(crossprod(x,rep(1,length(x)))/length(x))

---

你能用一个循环来计算你的x值吗？我想这样可以吗？不幸的是，这个问题的说明太模糊了，但我不明白为什么不可以。你能用一个循环来计算你的x值吗？我想这样可以吗？不幸的是，这个问题的说明太模糊了，但我不明白为什么不能。