For instance, my code is :
my $infile = $ARGV[0]; open (IFILE, "<", $infile) || die "Cannot open : $!\n"; ## read the input file my @data; my $COLUMNTOPARSE; my $local; while (<IFILE>) { chomp; my @local = split ('\t',$_); $COLUMNTOPARSE = $local[$ARGV[1]]; push @data; $COLUMNTOPARSE; } close IFILE; my $count = @data;
Now I wanted to get a generalization of all the indices of 125 elements stored in the $COLUMNTOPARSE in order to calculate variance of those elements
my $variance; my $var; foreach my $data[$index] (@data) { $var = 1/($count-1); $variance = $var*(($data[$index]-$Average)**2); } print "$variance\n";
But this $data$index way does not work.How should I proceed? Thanks..
In reply to Re^2: How to store the indexes of a array
by anonym
in thread How to store the indexes of a array
by anonym
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |