From ffdf4a4281625489efaaf08eee495b492c303687 Mon Sep 17 00:00:00 2001
From: John Kerl <kerl.john.r@gmail.com>
Date: Sat, 22 Aug 2015 13:32:35 -0400
Subject: [PATCH] neaten

---
 data/s1.sh      |  4 ++++
 data/s2.sh      |  4 ++++
 data/s3.sh      |  4 ++++
 perf/mkplots.sh |  6 ++++++
 perf/t1s.rb     | 45 +++++++++++++++++++++++++++++++++++++++++++++
 5 files changed, 63 insertions(+)
 create mode 100755 data/s1.sh
 create mode 100755 data/s2.sh
 create mode 100755 data/s3.sh
 create mode 100755 perf/mkplots.sh
 create mode 100755 perf/t1s.rb

diff --git a/data/s1.sh b/data/s1.sh
new file mode 100755
index 000000000..c4ccfdb75
--- /dev/null
+++ b/data/s1.sh
@@ -0,0 +1,4 @@
+#!/bin/bash
+mlr --opprint "$@" stats1 -a mean,sum,count,min,max -f i,x,y -g a,b ../data/medium
+echo
+mlr --opprint "$@" stats1 -a mean,sum,count,min,max -f i,x,y ../data/medium
diff --git a/data/s2.sh b/data/s2.sh
new file mode 100755
index 000000000..547538e03
--- /dev/null
+++ b/data/s2.sh
@@ -0,0 +1,4 @@
+#!/bin/bash
+mlr --opprint --right "$@" stats2 -a linreg-ols,linreg-pca,r2,corr,cov -f x,y,xy,y2,x2,x2 -g a,b ../data/mediumwide
+echo
+mlr --oxtab --right "$@" stats2 -a linreg-ols,linreg-pca,r2,corr,cov -f x,y,xy,y2,x2,x2 ../data/mediumwide
diff --git a/data/s3.sh b/data/s3.sh
new file mode 100755
index 000000000..6c6c8fb1e
--- /dev/null
+++ b/data/s3.sh
@@ -0,0 +1,4 @@
+#!/bin/bash
+mlr --opprint "$@" step -a rsum,delta,counter -f x,y -g a ../data/small
+echo
+mlr --opprint "$@" step -a rsum,delta,counter -f x,y ../data/small
diff --git a/perf/mkplots.sh b/perf/mkplots.sh
new file mode 100755
index 000000000..a6726c289
--- /dev/null
+++ b/perf/mkplots.sh
@@ -0,0 +1,6 @@
+#!/bin/bash
+
+experiments=$(mlr cut -f experiment < tn.out|sort -u|sed 's/experiment=//')
+for experiment in $experiments; do
+  mlr --onidx --ofs ' ' filter '$experiment=="'$experiment'"' then cut -x -f experiment tn.out | pgr -nc -title $experiment -xlabel nlines -ylabel seconds -legend 'a b' -lop &
+done
diff --git a/perf/t1s.rb b/perf/t1s.rb
new file mode 100755
index 000000000..6338d6ada
--- /dev/null
+++ b/perf/t1s.rb
@@ -0,0 +1,45 @@
+#!/usr/bin/ruby
+
+require 'time'
+
+# ----------------------------------------------------------------
+def run(desc, cmd)
+	t1 = Time.new
+	system(cmd)
+  status = $?
+	t2 = Time.new
+	secs = t2.to_f - t1.to_f
+  if status.to_i == 0
+	  puts("%-12s %6.3f        %s" % [desc, secs, cmd])
+  else
+	  puts("%-12s %6s        %s" % [desc, "ERROR", cmd])
+  end
+end
+
+# cutcut  real 0.38
+# cutmlr  real 3.23
+# cat     real 0.09
+# catc    real 0.55
+
+# ----------------------------------------------------------------
+
+
+run("sortsort1", "sort -t, -k 1,2      < data/big > /dev/null")
+#run("OSORTMLR1", "../c/mlr sort a,b    < data/big > /dev/null")
+run("SORTMLR1",  "mlr sort a,b         < data/big > /dev/null")
+puts
+
+run("sortsort1v",  "sort -t, -k 1,4            < data/big.csv > /dev/null")
+#run("OSORTMLR1V",  "../c/mlr --csv sort a,x    < data/big.csv > /dev/null")
+run("SORTMLR1V",   "mlr      --csv sort a,x    < data/big.csv > /dev/null")
+puts
+
+run("sortsort2", "sort -t, -k 4,5      < data/big > /dev/null")
+#run("OSORTMLR2", "../c/mlr sort x,y    < data/big > /dev/null")
+run("SORTMLR2",  "mlr sort x,y         < data/big > /dev/null")
+puts
+puts
+
+run("sortsort2v",  "sort -t, -k 4,5            < data/big.csv > /dev/null")
+#run("OSORTMLR2V",  "../c/mlr --csv sort x,y    < data/big.csv > /dev/null")
+run("SORTMLR2V",   "mlr      --csv sort x,y    < data/big.csv > /dev/null")