 for i in {1..1000}
 do
	perl 05.2.randomD.pl $i
        echo $i "/ 1000"
        sleep 0.5s
done

for filename in `ls BS.*.txt`
do
   Rscript 05.3.Mean_and_Medina.r $filename
done

