GAUSS kalmanFilter plots

/*
** Plot results
*/

plotLayout(2, 1, 1);

// Plot control structure
struct plotControl myPlot;
myPlot = plotGetDefaults("XY");

// Turn grid off
plotSetGrid(&myPlot, "off");

// Font settings
font_name = "Helvetica Neue";
font_color = "#666666";
title_size = 18;
label_size = 14;
legend_size = 10;

/*
** Filtered data
*/

// Title
plotSetTitle(&myPlot, "Nile Annual Flow Volumes at Aswan", font_name, title_size, font_color);

// Legend
plotSetLegend(&myPlot, "Filtered"$|"Observed", "top right", 1);
plotSetLegendFont(&myPlot,  font_name, legend_size, font_color);

// Change color of axes numbers
plotSetTicLabelFont(&myPlot, font_name, legend_size, font_color);

// Set up to add plot of filtered data
// Turn line symbol off
plotSetLineSymbol(&myPlot, -1);

// Time series plot of filtered data
plotTS(myPlot, 1871, 1 , rslt.filtered_state');

/*
** Observed Data
*/

// Scatter plot of observed data
x = seqa(1,1,rows(y));
plotAddScatter(x, y);

/*
** Filtered State Variance
*/

// Plot filtered state variance
plotLayout(2, 1, 2);

// Plot control structure
struct plotControl myPlot2;
myPlot2 = plotGetDefaults("xy");

// Turn grid off
plotSetGrid(&myPlot2, "off");

// Change color of axes numbers
plotSetTicLabelFont(&myPlot, font_name, legend_size, font_color);

// Turn line symbol off
plotSetLineSymbol(&myPlot2, -1);

// Label y
plotSetYLabel(&myplot2, "Filtered State Variance [P_tt]", font_name, label_size, font_color);

plotTS(myPlot2, 1871, 1 , arraytomat(areshape(rslt.filtered_state_cov, 100|1)));