Threaded Mode | Linear Mode

Marcus_W · (This post was last modified: 03-10-2018 11:50 PM by Marcus_W.)

Hey,

I think I found a solution, based on this:
http://www.real-statistics.com/distribut...egression/

I am not so good in coding, but maybe there is someone how can use this:

Code:

LOCAL len :=0;

LOCAL n :=0;

LOCAL param := 0;

LOCAL beta := 0;

LOCAL lambda := 0;

LOCAL value := 0;

EXPORT weibull_ifitr(data,percent)

BEGIN

C1:=data;

len:=length(C1);

C2:=sort(C1);

C3:=ln(C2);

FOR n FROM 1 TO len DO

C4(n):=(n-0.5)/len;

END;

C5:=ln(-ln(1-C4));

param:=linear_regression(C3,C5);

beta:=param(1);

lambda:=e^(-param(2)/param(1));

value:=weibull_icdf(beta,lambda,percent);

RETURN value;

END;

Comments are welcome.

bye,
Marcus