nlsひどいカーブフィッティング

Question

私はいくつかの異なるS字曲線にフィットするのに問題があります。 より良いフィッティングのための少しの助けは本当に感謝されるでしょう。

私は、3つの異なるモデルをしようとしています：重みで

4つのパラメータ

nls(y ~ a + (k-a) /(1 + (x/c)^e)^m, start=list(a=a_start, k=k_start, c=c_start, m=m_start, e=e_start), control = list(maxiter = 50000, minFactor=1/2000, warnOnly=T), algorithm = "port") 

5パラメータ

nls(y ~ a + (k-a) /(1 + exp(-1/c*(x-e)))^m, start=list(a=a_start, k=k_start, c=c_start, m=m_start, e=e_start), trace=T, lower=c(a=-10000, k=0, c=0, m=0, e=0), upper=c(a=1000, k=100000, c=50, m=5, e=50), control = list(maxiter = 50000, minFactor=1/2000, warnOnly=T)) 

5パラメータを

nls(y ~ a + (k-a) /(1 + exp(-1/c*(x-e)))^m, weights = (1/residuals(fit)^2), start=list(a=a_start, k=k_start, c=c_start, m=m_start, e=e_start), trace=T, lower=c(a=-10000, k=0, c=0, m=0, e=0), upper=c(a=1000, k=100000, c=50, m=5, e=50), control = list(maxiter = 50000, minFactor=1/2000, warnOnly=T)) 

4PL良いフィッティング

5PL良いフィッティング

貧しいフィッティング

シグモイド関数

Answer 1

私は部分的に私の問題を解決してきました。 私は成長の初期に良いフィッティングに関心があったので、私はその地域をより重要視するためにカスタムウェイトを使用しました。