.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()
|