kepwo

# usr bin perl w use strict; sub mean { my @data @ ; my $sum; foreach @data { $sum+ $ ; } return $sum @data ; }

R语言实战：它太神奇了，满载珍宝，可以让那些聪明狡猾和粗野胆大的人得到充分满足；但并不适合胆小者。

#!/usr/bin/perl-wusestrict;useBio::Tools::Run::RemoteBlast;my$prog='blastp';my$db='ecoli';my$e_val='1e-10'