We do not do homework here, and we're not a free code-writing service either.

You need to come up with the code yourself, then ask questions based on the specific issues you encounter along the way.

Hi,

i am not very good at pseudocode

Oh, dear. pseduocode == clear thinking. You're gonna need that.

Try starting this way: on a piece of paper, using an analogue writing device, set down the steps you would take to solve the problem using math. Your problem definition has the skeleton answer already.

(note use of BASIC line numbering to allow for inserted steps, lol)

100. for each row, calculate the mean of the values.
     
     
200. The output should be a list of genes and their respective mean expression value.

(Possibly of interest: How to teach programming with a peanut butter and jelly sandwich)

Hope this helps!

Just for amusement:

#!/usr/bin/env perl

# 11114393
use Params::Validate(':all');
use 5.01800;
use warnings;

local $/;
say <DATA>=~ s{^(.+)$}{with_mean($1)}gemr;
exit;

sub with_mean {
    my ($line)=validate_pos(@_,{ type=>SCALAR });

    return $line
        if ($line =~ m{^GeneName});
    my ($count,$sum);
    ()=$line=~ m{ (\d+)(?{ $count++; $sum+=$1; })}g;
    return "$line: @{[($sum+0.0)/$count]}";
    };

__END__
GeneName E1 E2 E3 E4
ATA1 12 44 45 33
OSA2 100 79 85 83
DUA5 66 65 64 67
AXANT 4 4 6 2
[download]

gives

GeneName E1 E2 E3 E4
ATA1 12 44 45 33: 33.5
OSA2 100 79 85 83: 86.75
DUA5 66 65 64 67: 65.5
AXANT 4 4 6 2: 4
[download]

it's reassuring to see our bio-scientists are cracking on the vaccine case pretty hard. Queue King Crimson's Epitaph ("knowledge is a deadly friend").

bw, bliako

use strict;
use warnings;
sub mean {...}
my @genes = (
#'GeneName E1  E2  E3  E4',
'ATA1      12  44  45  33',
'OSA2     100  79  85  83',
'DUA5      66  65  64  67',
'AXANT      4   4   6   2',
);
foreach  (@genes) {
    my ($name, @values) = split;
    print  $name, mean(@values);
}
[download]

It needs an implementation of the 'mean' function. It uses a hard coded array of strings rather than input. The output is unformatted. The default arguments of 'split' may not work as intended. Clearly, the highest priority is the function. I am not ashamed to use a module to do the heavy work.

use List::Util qw(sum);
...
sub mean { return sum(@_)/@_ }
[download]

Now you should have a working program. Add input and output details until it meets your requirements. As a final step, you may want to replace the module with your own sum function.