これはn ポイントの三辺測量に対する質問に似ており、回答がなかったので質問者が回答を投稿しました。
親の投稿から、Mathematica のコードが示され、出力に 2 つの変数 (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 の重み付き非線形二乗推定のために簡単な方法で表現するかがわかりません。