Skip to content
Snippets Groups Projects
Commit 9345ba5c authored by ameyner2's avatar ameyner2
Browse files

Added error reporting to flag up cases where individual/family id might not...

Added error reporting to flag up cases where individual/family id might not match b/w PED and file_list.tsv
parent ad9322c4
No related branches found
No related tags found
No related merge requests found
......@@ -104,6 +104,12 @@ foreach my $family_id (keys %family)
my $sex = $ped{$family_id}{$individual_id}{'sex'};
my $aff = $ped{$family_id}{$individual_id}{'aff'};
if (!defined($father_id) || !defined($mother_id))
{
print STDERR "$individual_id - no father/mother id found\n";
next;
}
my $new_individual_id = sprintf("%s_%s", $individual_id, $family_id);
my $new_father_id = 0;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment