如何在求和R中排除NaNs

Question

我遇到了问题。当我想对向量求和时，有一些NaN，因为分母有时为零。我该怎样预防呢？ 这是代码：

x = sample(c(1:20), 25, replace = T)
y = sample(c(1:20), 25, replace = T)
i = 1
n = length(x)-1
result = c()
for(i in 1:n){
 result[i]=sum(sin(x[i+1]/(y[i+1]-y[i])), na.rm = TRUE)
}
sum(result)