Permalink
Browse files

these provide an example of iterating over featuregroups

svn path=/bioperl-microarray/trunk/; revision=11839
  • Loading branch information...
1 parent 46fc329 commit b7a2e427504bfb572f4a722c19fe89579ed0e0be allenday committed Sep 11, 2003
Showing with 54 additions and 0 deletions.
  1. +27 −0 t/133a.t
  2. +27 −0 t/133b.t
View
@@ -0,0 +1,27 @@
+use strict;
+
+use Bio::Expression::Microarray::Affymetrix::Array;
+use Bio::Expression::Microarray::Affymetrix::Data;
+$Bio::Expression::Microarray::Affymetrix::Array::DEBUG = 1;
+$Bio::Expression::Microarray::Affymetrix::Data::DEBUG = 1;
+use Bio::Expression::MicroarrayIO;
+
+my $affx = Bio::Expression::MicroarrayIO->new(
+ -file => './eg/133a.cel',
+ -template => './eg/133a.cdf',
+ -format => 'affymetrix',
+ );
+my $array = $affx->next_array;
+
+open(T,'>133a.featuregroups');
+foreach my $f ($array->each_featuregroup){
+ print T $f->id, "\n";
+}
+close(T);
+
+open(T,'>133a.qcfeaturegroups');
+foreach my $f ($array->each_qcfeaturegroup){
+ print T $f->id, "\n";
+}
+close(T);
+
View
@@ -0,0 +1,27 @@
+use strict;
+
+use Bio::Expression::Microarray::Affymetrix::Array;
+use Bio::Expression::Microarray::Affymetrix::Data;
+$Bio::Expression::Microarray::Affymetrix::Array::DEBUG = 1;
+$Bio::Expression::Microarray::Affymetrix::Data::DEBUG = 1;
+use Bio::Expression::MicroarrayIO;
+
+my $affx = Bio::Expression::MicroarrayIO->new(
+ -file => './eg/133b.cel',
+ -template => './eg/133b.cdf',
+ -format => 'affymetrix',
+ );
+my $array = $affx->next_array;
+
+open(T,'>133b.featuregroups');
+foreach my $f ($array->each_featuregroup){
+ print T $f->id, "\n";
+}
+close(T);
+
+open(T,'>133b.qcfeaturegroups');
+foreach my $f ($array->each_qcfeaturegroup){
+ print T $f->id, "\n";
+}
+close(T);
+

0 comments on commit b7a2e42

Please sign in to comment.