f17.kg

Download program

.l("config.kg")

Cached data set X::(!30),'err(20;20;0.5*!30))

X::[-0.11 -0.32  0.32 0.0   0.21 -0.11
    -0.11  0.0   0.0  0.03 -0.04  0.1
    -0.23  0.73 -0.1  0.14  1.02  0.05  
     1.11  1.04  0.97 1.0   1.21  1.75  
     1.11  1.11  1.0  0.79  0.79  0.89]

Compute and plot spline with 5 degrees of freedom through the data set

grid(0,((#X)-1),3;[-0.5 2.25 0.25])
XY::(!30),'X
S::spl(5;XY)
plot(sp(;S))
scplot2(XY)

Add r^2 and CVE of the model as descriptions

desc0("r^2 = ",$rndn(r2(XY;sp(;S));3))
desc1("cve = ",$rndn(cve(spl(5;);sp2;XY);3))
draw()