diff bin/subgroups.pm @ 20:509d95c26dab draft

Uploaded
author romaingred
date Fri, 20 Oct 2017 08:34:35 -0400
parents 198009598544
children 15fbf3bdb553
line wrap: on
line diff
--- a/bin/subgroups.pm	Thu Oct 19 04:39:33 2017 -0400
+++ b/bin/subgroups.pm	Fri Oct 20 08:34:35 2017 -0400
@@ -16,6 +16,7 @@
 	my ($fin, $dir, $mis, $mis_TE, $proc, $tRNAs, $rRNAs, $snRNAs, $miRNAs, $exons, $TE, $min_si, $max_si, $min_pi, $max_pi, $report ) = @_;
 	my (@files, $sum, $pie, $repar, %ismapped, %isjunk, %repartition, @junk_ref, @all_ref );
 
+	srand();
 	print $report "----------------------------\n";
 	print $report "Create subgroups:\nfastq_in: $fin\ndirectory_out: $dir\nmismatches: $mis\nmismatches TE: $mis_TE\n";