r - R中用于三边测量的函数

Question

这类似于n 点的三边测量问题，由于没有答案，询问者已经发布了答案。

从父帖子中，代码显示为 Mathematica 并在输出中有两个变量 (X,Y)。

我很难使用该函数在 R 中创建相同的nls函数。

我尝试了以下方法：

data <- data.frame( signal = c(98,94,66,49),x=c(6,5,4,4),y=c(6,7,7,6))   

weighted_distance <- function(signal, y, x)
{
   return(y - (signal^-1)*10*x)         
}

NLS_x <- nls(y ~ weighted_distance(signal,y,x), data = data,start = list(x=2,y=1))

我收到以下错误：

Error in numericDeriv(form[[3L]], names(ind), env) : 
'Missing value or an infinity produced when evaluating the model'

我知道代码中编写的公式是不正确的，因为分母直接作为信号而不是乘以表示距离的常数。

但是我不明白如何处理这个问题并以更简单的方式表示它以用于 R 中的加权非线性平方估计。