I have a dataset of values for variables for subjects. Some subject have
multiple records, requiring an average:
ID Var1 Var2
1 1.0 2.0
1 2.0 1.5
-------------
1 1.5 1.75
If I collect the variables into an array, I can average the contents after I
have processed the entire file. It would seem that I want something like:
my %subjects ;
$subjects{ $ID }{ $var }[ 0 ] = $var1 ;
$subjects{ $ID }{ $var }[ 0 ] = $var2 ;
It does not seem like I could PUSH values onto the array:
push $subject{ $ID }{ $var } , $var1 ;
My first inclination is to use EXISTS and a create a variable intended to
INDEX the array:
my $index ;
if ( ~ exists $subjects{ $ID }{ $var } ) {
$index = 0 ;
} else { $index = $subjects{ $ID }{ $var } )
$subjects{ $ID }{ $var }[ $index ] = $var1 ;
I would appreciate any comments or suggestions concerning this approach.
Thank you,
Kevin
Kevin Viel, PhD
Post-doctoral fellow
Department of Genetics
Southwest Foundation for Biomedical Research
San Antonio, TX 78227
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
