wider

figure-candidates-interactive-data.R

@@ -57,6 +57,7 @@ seg.dt.list <- list()
 cost.dt.list <- list()
 for(penalty in 10^seq(-2, 3)){
   segs.up.to <- list()
+  print(penalty)
   for(tau in unique.tau){
     for(model.name in names(label.list)){
       label.dt <- data.table(label.list[[model.name]])
@@ -109,5 +110,15 @@ viz.data <- list(
   cost=cost.dt,
   labels=labels,
   signal=signal.dt)
+
+dir.create("figure-candidates-interactive-data")
+for(data.type in names(viz.data)){
+  dt <- viz.data[[data.type]]
+  out.csv <- file.path(
+    "figure-candidates-interactive-data",
+    paste0(data.type, ".csv"))
+  data.table::fwrite(dt, out.csv)
+}
+
 saveRDS(viz.data, "figure-candidates-interactive-data.rds")
 

figure-candidates-interactive.R

@@ -3,6 +3,17 @@ library(data.table)
 works_with_R('3.6.0', animint2="2019.7.3", data.table="1.12.8")
 
 viz.data <- readRDS("figure-candidates-interactive-data.rds")
+
+dir.create("figure-candidates-interactive-data")
+for(data.type in names(viz.data)){
+  dt <- viz.data[[data.type]]
+  out.csv <- file.path(
+    "figure-candidates-interactive-data",
+    paste0(data.type, ".csv"))
+  data.table::fwrite(dt, out.csv)
+}
+
+
 viz.data$cost[, last.change := tau]
 best.overall <- viz.data$cost[up.to.t == 100, {
   .SD[which.min(cost_candidates)]

figure-signal-cost.R

@@ -142,8 +142,9 @@ gg.model <- gg.data+
     LOPART="black"))+
   ylab("")+
   scale_x_continuous(
-    "position",
-    breaks=seq(0, 100, by=10))+
+    "Position in data sequence",
+    limits=c(0, 105),
+    breaks=c(1, seq(10, 100, by=10)))+
   geom_text(aes(
     pos, cost_candidates,
     hjust=hjust,
@@ -161,7 +162,7 @@ gg.model <- gg.data+
     color=Algorithm, shape=Algorithm),
     data=COST(cost.dt))+
   scale_shape_manual(values=c(OPART=1, LOPART=2))
-w=6
+w=6.5
 h=2.4
 tikz("figure-signal-cost-standAlone.tex", width=w, height=h, standAlone=TRUE)
 print(gg.model)

figure-signal.tex

@@ -1,4 +1,4 @@
-% Created by tikzDevice version 0.12.3 on 2020-10-15 16:14:39
+% Created by tikzDevice version 0.12.3.1 on 2021-07-02 12:48:23
 % !TEX encoding = UTF-8 Unicode
 \begin{tikzpicture}[x=1pt,y=1pt]
 \definecolor{fillColor}{RGB}{255,255,255}