Experiment that ran

write-2021-12-15_multiroom-and-Tforward.R

@@ -82,7 +82,7 @@ X[ ,nmTforwardRC] <- tmp2$x
 X[ ,nmTforwardVE] <- rep(5,nrow(X))
 
 p <- par_ts(legendspace=20)
-plot_ts(X, c("RegP","RegI","spTforward","Room","spP"), legendspace=0.8, plotfun=function(x,y,col){lines(x,y,col=col,type="s")}, legendcex=0.5)
+#plot_ts(X, c("RegP","RegI","spTforward","Room","spP"), legendspace=0.8, plotfun=function(x,y,col){lines(x,y,col=col,type="s")}, legendcex=0.5)
 
 
 ## ------------------------------------------------------------------------