Commit d0ba58d3 authored by Tiago Grego's avatar Tiago Grego
Browse files

variation data object updated

parent 4a58b67f
...@@ -89,8 +89,7 @@ foreach my $var (@vars) { ...@@ -89,8 +89,7 @@ foreach my $var (@vars) {
my $var_d = $var_data{$var}; my $var_d = $var_data{$var};
my $var_obj = Bio::EnsEMBL::Variation::Variation->new( my $var_obj = Bio::EnsEMBL::Variation::Variation->new(
-NAME => $var, -NAME => $var
-ANCESTRAL_ALLELE => $var_d->{'aa'}
); );
#my %sample_genotypes = (); #my %sample_genotypes = ();
...@@ -112,7 +111,8 @@ foreach my $var (@vars) { ...@@ -112,7 +111,8 @@ foreach my $var (@vars) {
-VARIATION_NAME => $var, -VARIATION_NAME => $var,
-MINOR_ALLELE => $var_d->{'ma'}, -MINOR_ALLELE => $var_d->{'ma'},
-MINOR_ALLELE_FREQUENCY => $var_d->{'maf'}, -MINOR_ALLELE_FREQUENCY => $var_d->{'maf'},
-MINOR_ALLELE_COUNT => $var_d->{'mac'} -MINOR_ALLELE_COUNT => $var_d->{'mac'},
-ANCESTRAL_ALLELE => $var_d->{'aa'}
); );
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment