test_Wagstaff01_unconstrained.sh 2.08 KB
Newer Older
Tom Lampert's avatar
Tom Lampert committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87
#!/bin/bash

n_proc=1	# Number of processes to execute in parallel, -1 unlimited

trap "trap - SIGTERM && kill -- -$$ && exit" SIGINT SIGTERM EXIT

function limitjobs {
   	if [ "${n_proc}" != "-1" ]
	then
		while [ `jobs -rp | wc -l` -ge ${n_proc} ]
		do
			sleep 5
		done
	fi
}


subdir=Wagstaff01
data_path=./datasets
test_type=test

outdir=./methods/${subdir}/clusterings/unconstrained
resdir=./results/${subdir}/unconstrained

mkdir -p ${resdir}
mkdir -p ${outdir}

for d in ${data_path}/*/
do
	dataname=`basename ${d}`
	echo ${dataname}

	maskfilename=-1
	distancemetricfilename=${data_path}/${dataname}/${test_type}/${dataname}.metric
	distance_metric=`cat ${distancemetricfilename}`
	nfeaturesfilename=${data_path}/${dataname}/${test_type}/${dataname}.nfeatures
	nfeatures=`cat ${nfeaturesfilename}`

	datafilename=${data_path}/${dataname}/${test_type}/${dataname}.data
	kfilename=${data_path}/${dataname}/${test_type}/${dataname}.k
	labelsfilename=${data_path}/${dataname}/${test_type}/${dataname}.labels

	resultdir=./methods/${subdir}/results/${test_type}/unconstrained
	mkdir -p ${resultdir}

	for (( i=1; i<=10; i++ ))
	do

		limitjobs

		{
			cnstrnt_frac=0
			cnstrnt_iter=${i}

			filenamepattern=${dataname}_${test_type}_${cnstrnt_frac}_${cnstrnt_iter}
			outfilename=${outdir}/${filenamepattern}.clustering
			resultfilename=${resultdir}/${filenamepattern}.results

			constraintsfilename=-1

			if [ ! -f ${resultfilename} ]
			then
				echo ${resultfilename}

				rm -f ${outfilename}

				Rscript --vanilla methods/${subdir}/test_clustering_COPKmeans.r ${datafilename} ${constraintsfilename} ${kfilename} ${outfilename} ${nfeatures} 100 ${distance_metric} ${maskfilename}

				if [ -f ${outfilename} ]
				then
					Rscript --vanilla ./utils/cluster_index.R ${labelsfilename} ${outfilename} ${resultfilename}
				fi
			fi
		} &
	done

	wait

	for cnstrnt_frac in 0
	do
		outfilename=${resdir}/${dataname}_${test_type}_${cnstrnt_frac}.results

		rm -f ${outfilename}

                Rscript --vanilla ./utils/summarise_results.R ${resultdir} ${dataname} ${test_type} ${cnstrnt_frac} ${outfilename}
	done
done