无法获取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是我刚刚练习的R的内置函数。我的其他书面功能也正在发生。