Select Code to Download

#!/usr/bin/perl -w
#This code joins randomly haplotypes two by two from the output given 
+by Eli's program with an arbitrary number of populations. It needs a 
+2 allele output. It is  the infile for R calculation.
...
                                                                      
+               }
                                                                      
+                 }
 print "$currentPop\n";

segsites: 2    tMRCA: 0.6398829    
Fsense 1    founders: 2    
...
0    0
-3    -1
0    0