Displaying 1 result from an estimated 1 matches for "quant_qual_echo".
2007 Jun 24
2
matlab/gauss code in R
...-- keep
> 10,21,0 <-- remove
> 10,21,0 <-- keep
> 10,24,0 <-- keep
> 10,25,0 <-- remove
> 10,25,0 <-- remove
> 10,25,0 <-- keep
>
> Here is the perl program I wrote for this.
>
> #!/usr/bin/perl
>
> open(BOTH, "quant_qual_echo.csv") || die "Can't open quant_qual_echo.csv";
> # Discard first row;
> $_ = <BOTH>;
> while(<BOTH>) {
> chomp;
> ($id, $e, $m, $sq, $qu) = split(/,/);
> $both{$sq,$m}++;
> }
> close(BOTH);
>
> open(OUT, "> qual_echo_only...