cds/tools/chlorodb added

Former-commit-id: 0579e878a69b7c285ca71870e9ca5730649a2fda
Former-commit-id: 7cced5b488441d87bf070a9a444317db0e048880

detectors/cds/tools/lib/summarize_cmp.r

@@ -0,0 +1,71 @@
+#!/usr/bin/env Rscript
+#
+# plot summary graphics of comparisons
+#
+#
+
+LIBDIR <- Sys.getenv("LIB_DIR")
+if (LIBDIR == "") LIBDIR = "."
+
+source(paste0(LIBDIR, "/util.plot.r"))
+
+COLORS <- 2:10
+
+#
+
+OUT.DEV <- TRUE
+OUT.TYPE <- "pdf"
+OUT.FILE <- "compare"
+if (OUT.DEV) uplot.init.dev(OUT.FILE, OUT.TYPE)
+
+#
+
+tab <- read.table("compare.txt", header=T, comment.char="", stringsAsFactors=F)
+
+#
+
+par(xpd=NA)
+
+#
+
+sel  <- c("cor", "alcor", "acc", "wrong", "over", "misstot")
+tab$ptot <- rowSums(tab[,sel])
+for (s in sel)
+  tab[,paste0("p", s)] <- tab[,s] * 100 / tab$ptot
+
+colors <- head(COLORS, length(sel))
+
+cols <- paste0("p", sel)
+ord  <- order(tab$pcor+tab$palcor+tab$pacc, decreasing=T)
+
+barplot(t(tab[ord,cols]), names.arg=tab$X.org[ord], 
+        ylim=c(0,100), col=colors, las=2, cex.names=0.5)
+
+legend(0, 110, sel, fill=colors, cex=0.7, horiz=T)
+
+#
+
+sel  <- c("cor", "alcor", "acc", "wrong", "over", "misschlo")
+tab$rtot <- rowSums(tab[,sel])
+for (s in sel)
+  tab[,paste0("r", s)] <- tab[,s] * 100 / tab$rtot
+
+colors <- head(COLORS, length(sel))
+
+cols <- paste0("r", sel)
+ord  <- order(tab$rcor+tab$ralcor+tab$racc, decreasing=T)
+
+barplot(t(tab[ord,cols]), names.arg=tab$X.org[ord], 
+        ylim=c(0,100), col=colors, las=2, cex.names=0.5)
+
+legend(0, 110, sel, fill=colors, cex=0.7, horiz=T)
+
+#
+
+if (OUT.DEV) {
+  cat("# plot file:", paste0(OUT.FILE, ".", OUT.TYPE), "\n")
+  invisible(dev.off())
+}
+
+quit(save='no')
+