R 如何计算1D情况下的倒车距离权重？

这是一个示例数据帧：

test = data.frame('id'=c('1','2','3'),'value'=c(4,6,8),'score'=c(5,7,9))

test
  id value score
1  1     4     5
2  2     6     7
3  3     8     9

我正在为每条记录寻找一个标记：

我确实浏览了一些关于二维插值反向距离加权的软件包（例如and），但我觉得我的问题方向不对。谁能给我一些提示吗？提前谢谢

使用给出的提示

test = data.frame('id'=c('1','2','3'),'value'=c(4,6,8),'score'=c(5,7,9))
weight <- outer(test$value, test$value, function(a,b) 1/abs(a-b))
for(i in 1:length(test$score)){
 test$mark[i] <- sum(test$score[-i]*weight[-i,i])/sum(weight[-i,i])
}

test=data.frame（'id'=c（'1'，'2'，'3'），'value'=c（4,6,8），'score'=c（5,7,9））
重量您可以从
weight开始，虽然有一个软件包，但这解决了问题，谢谢！