Я практикую написание функций и проверяю их.Я написал следующие функции, но когда я пытаюсь указать 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 Я знаю, значит, это встроенная функция для РИ, я только практикуюсь.Также это происходит для моих других письменных функций.