.l("config.kg")
grid([-3 3 1];[0 0.5 0.1])

:"Create normally distributed frequency distribution"
F::freq(ndf;30;[-3 3])

:"Use 10 degrees of freedom"
df::10

:"Bar-plot a histograms of means of F"
barplot(hist(df;F))

:"Scatter-plot the frequency distribution F"
setdot(7)
fillrgb(0.7;0.5;1.0)
scplot(F)

:"Compute and plot a spline through F"
S::spl(df;(((!#F)%29%6)-3),'F)
plot(sp(;S))

:"Scatter-plot the knots of the spline"
:"(yes, splines can be scatter-plotted!)"
fillgray(0)
scplot2(S)
draw()