R语言自定义绝对值函数失效求助：负数未转为正数

• 函数名不匹配：你定义的函数是abs_function，但调用的是abs_tfn，函数名不一致会导致调用无效（若未提前定义abs_tfn，甚至会报错）。
• 错误处理向量维度：输入x是一维向量，nrow(A)仅适用于矩阵/数据框，对向量会返回NULL，导致循环变量n为空，循环根本不会执行。获取向量长度应该用length(A)。
• 循环范围错误：就算n是有效长度，for(i in n)只会遍历最后一个索引，正确的遍历范围应该是1:n，覆盖所有元素。
• 未赋值修改结果：你的if语句仅计算-A或A，但没有将修改后的值存回原向量的对应位置，比如应该写成A[i] <- -A[i]，否则计算结果只是临时值，不会改变原向量。
• 向量索引写法错误：一维向量的索引是A[i]，A[i,]是矩阵的行索引写法，对向量使用会引发错误。

修正后的代码 #

x <- c(5,-8,11)

abs_function <- function(A){
  n <- length(A)
  for (i in 1:n) {
    if (A[i] < 0) {
      A[i] <- -A[i]
    }
  }
  return(A)
}

# 调用正确的函数名
abs_function(x)
# 输出：[1]  5  8 11

更高效的向量化写法 #

R是向量化语言，完全不需要循环，直接用内置函数或向量化操作即可实现需求：

# 方法1：使用内置abs函数
abs_function <- function(A){
  abs(A)
}

# 方法2：使用ifelse向量化判断
abs_function <- function(A){
  ifelse(A < 0, -A, A)
}

内容的提问来源于stack exchange，提问作者user20655831