#!/bin/sh
#compare two variables in an anova input file
#the data is assumed to be in the last column (x[N])
#Usage: comp column1 column2 datafile describer=desc pager=cat

c1=$1
c2=$2
dfile=$3
desc=${4-desc}
pager=${5-cat}

echo Comparing columns $c1 and $c2 in $dfile with $desc
l1=`dm s$c1 < $dfile | sort | uniq`
l2=`dm s$c2 < $dfile | sort | uniq`
echo Column $c1 labels: $l1
echo Column $c2 labels: $l2
for v1 in $l1
do
	for v2 in $l2
	do
		(
		echo ""
		echo Description of "s$c1='$v1'" x "s$c2='$v2'" from $dfile
		echo ""
		dm "(s$c1='$v1' && s$c2='$v2') ? x[N] : KILL" < $dfile | $desc
		) | $pager
	done
done
