: #!/usr/bin/perl -w
: use Statistics::Regression;
: open training, "training.csv";
: $genename = <training>;
: chomp $genename;
: @genename = split /,/, $genename; # 1st row is gene's name
: $expr = shift @genename; #1st data is sample expression
: unshift @genename, "const"; #put const column in array
: my $reg = Statistics::Regression->new($expr,[@genename]);#取得$expr跟@genename
: while (<training>){
: chomp;
: @train = split /,/, $_;
: $expr_data = shift @train;
: unshift @train, 1.0;
: $reg->include( $expr_data, [@train] ); #去除my，@train改成AOA型式
: }
: $reg->print();
: close(training);
不好意思想再請問，要如何 print 出回歸方程呢？
或是是否可以將回歸方程的係數輸出成一個 array ？
謝謝大家
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.140.111.244