Select Code to Download

# perl code
#use 5.024;
...
3214    2.587765856
3255    2.58986343

Use of uninitialized value $ninf[6] in sprintf at c:/berrybrew/5.26.1_
+64_pdl/perl/site/lib/PDL/Fit/Levmar.pm line 1250, <DATA> line 82.
------LEVMAR REPORT:----
...
RSQ: 0.999354122952557
lmfit RSQ: 0.999354122952557
lmfit RMSE: 8.35455913578738e-005

#  R CODE
my.data = '
...
init_cond = list(a = -1, b = 1, c = 2134, d = 2.27395324135227)
formula   = as.formula ("y ~ d + (a - d) / (1 + (x / c)**b)")
nlsLM(formula, data=data, start=init_cond)

> nlsLM(formula, data=data, start=init_cond)
Nonlinear regression model
...

Number of iterations to convergence: 16 
Achieved convergence tolerance: 1.49e-08