Hi,
I am working on some gene expression data and am trying to come up with a random walk
algorithm to cluster my data.
Here's what I need. I have a probability matrix of several genes against each other.
Assuming each one of the genes (columns and rows) on the probability matrix is a node,
I
am
trying to write a script that reads in this matrix and performs one step random walks
between these nodes. The edges are weighted by the probabilities in the matrix. I also
need
it to create another matrix that keeps score of how many times a certain edge gets
walked.
I am rather new to PERL and have been doing most of my work on S-plus. If any of you
are
familiar with this type of analysis or if you thik you might be able to help me, given
more
detail please let me know.
Thank you,
Kalyan Dudala
> I am trying to open a file, and read the contents, but every execution gives
> me an error:
>
> cannot open filename: Bad file number
>
> Below is the program as it stands now. I am guessing that I have a trailing
> something causing the issue, but I can't seem to put my finger on it.
>
> Thanks for the help.
> ============================================================================
> ================================
>
> use Mail::Mailer;
>
> use Getopt::Std;
> getopt("f:");
>
> my $mailflag=1;
> my $host=`hostname`;
> my @log_content;
>
>
> die "Usage: $0 -f filename\n"
> if (!defined $opt_f);
>
> chomp($opt_f);
>
> my $mailer = Mail::Mailer->new();
> my $from_address = 'check_log@' . $host;
> my $to_address = '[EMAIL PROTECTED]';
> my $subject = $host . ": " . "Log Scan - " . $opt_f;
>
> open(LOGFILE, "$opt_f") || die "cannot open $opt_f: $!\n";
> while (<LOGFILE>) {
> push (@log_content, $_);
> }
> close (LOGFILE, "$opt_f") || die "cannot open $opt_f: $!\n";
>
>
> if ($mailflag eq 1) {
> $mailer->open({ From => $from_address,
> To => $to_address,
> Subject => $subject,
> })
> or die "Cannot open: $!\n";
> print $mailer @log_content;
> $mailer->close();
> }
>
> -----------------------------
> InteleNet Communications Inc. "Help me help you."
> Chance Ervin - SCSA --Jerry Maguire
> Oracle Certified Professional
> Supervisor of Network Operations
>
>
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> <http://learn.perl.org/> <http://learn.perl.org/first-response>
>
>
Kalyan Chakravarthy Dudala
Graduate Assistant
Ecology, Evolutionary and Organismal Biology
Rm 339, Bessey Hall
Iowa State University
Ames, IA 50011
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
