plotFilamentsBox(data, f_np); title(paste("FilBox nn day",i_np))
plotFilamentsBox(data, f_p); title(paste("FilBox nn day",i_p))
-plotFilamentsBox(data, f_np2); title(paste("FilBox nn2 day",i_np))
-plotFilamentsBox(data, f_p2); title(paste("FilBox nn2 day",i_p))
+# Generally too few neighbors:
+#plotFilamentsBox(data, f_np2); title(paste("FilBox nn2 day",i_np))
+#plotFilamentsBox(data, f_p2); title(paste("FilBox nn2 day",i_p))
-----r
par(mfrow=c(1,2))
plotRelVar(data, f_np); title(paste("StdDev nn day",i_np))