El código funciona bien para otras muestras, pero en algunas muestras muestra que el gráfico no es convergente.
"Considere criterios de convergencia más flexibles o seleccione "aceptar estimaciones actuales" en "opciones de iteración". Error: no se puede disminuir la función objetivo
El código es el siguiente y adjunto los ejemplos para los cuales no funciona bien.
Names Default To Here( 1 );
dt= currentdatatable();
New Column( "Model",
Numeric,
"Continuous",
Format( "Best", 12 ),
Formula(
Parameter(
{p = 0.29, x0 = 15, m0 = 1.2, x1 = 30, m1 = 5},
p * (1 - Exp( -(X_mm / x0) ^ m0 )) + (1 - p) * (1
-Exp( -(X_mm / x1) ^ m1 ))
)
),
);
nlin = dt << Nonlinear(
SendToByGroup( Bygroup Default ),
Y( Ln_C ),
X( :Model ),
Iteration Limit( 1000 ),
Unthreaded( 1 ),
QuasiNewton BFGS,
//Newton,
Finish,
By( Sample_ID ),
);