r - 无法让 na.rm=TRUE 为函数工作

Question

我正在练习编写函数并测试它们。我已经编写了以下函数，但是当我尝试指定 na.rm=TRUE 时，我的 NA 没有被删除。

my.mean <- function(x, na.rm) {
 stopifnot(is.numeric(x))
 answer <- sum(x)/length(x)
 return(answer)
}

我的测试向量是

t <- c(12,14,NA,1)

结果

my.mean(t, na.rm = TRUE)
[1] NA

我不知道为什么我没有得到答案 9. 我尝试过指定

na.rm = FALSE

在原始功能中，但知道我不应该这样做。

有任何想法吗？

谢谢你。

PS我知道意思是RI的内置功能，我只是在练习。我的其他书面功能也正在发生这种情况。