将数学函数转换为R

Question

我有这个数学函数

我写了R代码：

result <- 0
    for (i in length(v)) {
        result <- abs(x-v[i])
    }
    return(result)

计算函数。

然而，这对我来说似乎没有效率？如何使用R sum函数实现此sum()？

感谢您的回答！

Answer 1

sum(abs(x-v))显示足够，不需要for循环，因为R中的算术运算是矢量化的

# Example
> x <- 5
> v <- 1:10
> abs(x-v)
 [1] 4 3 2 1 0 1 2 3 4 5
> sum(abs(x-v))
[1] 25