RPN.2.v \Regressions
[c]#'21'V{0v1+X@_v};
[f]xn!(0g2r2>!xp|(1Xn))xo!(0g3r2>!xp|(1Xo));
[d]0Xt;
[q]g1g4*g7g7*-g2g1*g8g5*-/g4g2g4*-g8/g8r8*g4g7*-g1*g8r6*r5g1*-r7r7*r6g1*-*/r2r3;
[j]xfxexdxcxbxaCq;
[g]xn(0g1g1:xfxixdxcxhxgCq);
[e]xo(0g1g1:xfxlxkxjxbxaCq);
[w]xnxo|(0g1g1:xfxmxkxjxhxgCq);
[z]c(:Cj:Cg:Ce:Cw);
[m]c(:D'lin|OK|'d1:D'log|OK|'d1:D'exp|OK|'d1:D'pwr|OK|'d1);
[k]0g13V{v1+g1Czd1d1g3g2r2<!(r4r4)d1d1_v}d1XuxuCzxuCm;
[u]xvXuxuc(Ck:xuCz)XqXrXs;
[p]xt!(Cu1Xt);
[t]g1x@r4r4(-:+)r2X@;
[n]VCdg1v1Ctg1g1*v2Ctg2v3Ctg2g1*v4Ctg1g3*v5Ct1v6Ct;
[l]VCfg2xo!(l)g2xn!(l)xn!(g1v#'7'Ctg1g1*v#'8'Ctg1g5*v#'9'Ct)xo!(g2v#'10'Ctg2g1*v#'11'Ctg2g4*v#'12'Ct)xnxo|!(g1g3*v#'13'Ct)d1d1;
[s]VvCnvClxf;
[v]g1*g3/-r21-/;
"Regressions"
"[+]"0Cs;
"[-]"1Cs;
"clr"Cc;
~
"sum"xcxa;
"mean"xcxf/xaxf/;
"wm"xexc/;
~
"sdev"xfxdxcCvsxfxbxaCvs;
"Model"xvUdD'chose model|best|lin|log|exp|pwr|'Xvd1CdCpxu;
~
"x"Cpxuc(:::l:l)xr-xq/xuc(::e::e);
"y"Cpxuc(::l::l)xq*xr+xuc(:::e:e);
"a"Cpxq;
"b"Cpxrxuc(:::e:e);
"r"Cpxss0xqr2<(n);