#!/bin/shdata=$1class=$2folds=${3:-3}tsplit -xc$class $data.tab -t$folds 2>/dev/nullrm -rf xval.tmpfor (( i = 0; i < folds; i++ )); do  list=""  for (( k = 0; k < folds; k++ )); do    if (( k != i )); then list="$list $k.tab"; fi  done  tmerge $list - 2>/dev/null | \    dti $data.dom - - 2>/dev/null | \    dtx - $i.tab 2>&1 | \    gawk '($2 ~ "error[(]s[)]") {      printf("%s %s\n", $1, substr($3, 2, length($3)-3)) }' \    >> xval.tmpdonegawk '{ cnt += $1; sum += $2; }END { printf("%d error(s) (%.2f%%)\n", cnt, sum/NR) }' xval.tmprm -rf $list $(( folds -1 )).tab xval.tmp