DataMuseum.dk

top - download

    Length: 620 (0x26c)
    Types: TextFile
    Names: »comp«

└─⟦87ddcff64⟧ Bits:30001253 CPHDIST85 Tape, 1985 Autumn Conference Copenhagen
    └─ ⟦this⟧ »cph85dist/stat/scripts/comp« 

TextFile

#!/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