mason/solgs/population.mas

   1 <%args>
   2
   3 $pop_id => ''
   4 $training_pop_id
   5 $training_pop_name
   6 $training_pop_desc
   7 $show_data => 1;
   8 $training_pop_traits_details =>''
   9 $stocks_no
  10 $markers_no
  11 $traits_no
  12 $owner=>''
  13 $protocol_url => ''
  14 $acronym
  15 $genotyping_protocol_id
  16
  17 </%args>
  18
  19 <%perl>
  20
  21 #my $submit_new = qq | <a href="/submit/intro">Submit GS population</a> |;
  22
  23 if ($pop_id && !$training_pop_id) {
  24 $training_pop_id = $pop_id;
  25 }
  26
  27 </%perl>
  28
  29
  30 <& /util/import_javascript.mas, classes => ["solGS.solGS"] &>
  31 <& /util/import_css.mas, paths => ['/static/css/solgs/solgs.css'] &>
  32
  33 <br />
  34 <br />
  35
  36 <& /page/page_title.mas,
  37    title => "Select one or more traits from training population \"$training_pop_name\" to build a GS model and predict GEBVs for."
  38 &>
  39
  40 <&| /page/info_section.mas,
  41     collapsible => 1,
  42     collapsed   => 0,
  43     title       => "Training population summary",
  44   &>
  45
  46  <& population/summary.mas,
  47     training_pop_id   => $training_pop_id,
  48     training_pop_name => $training_pop_name,
  49     training_pop_desc => $training_pop_desc,
  50     stocks_no    => $stocks_no,
  51     markers_no   => $markers_no,
  52     traits_no    => $traits_no,
  53     owner        => $owner,
  54     protocol_url => $protocol_url,
  55  &>
  56
  57 </&>
  58
  59 % if ($show_data) {
  60 % if ($markers_no > 1) {
  61
  62
  63 <&| /page/info_section.mas,
  64       collapsible => 1,
  65       collapsed   => 0,
  66       title       => "Train model"
  67 &>
  68
  69 <& population/traits_list.mas,
  70    training_pop_id    => $training_pop_id,
  71   training_pop_traits_details => $training_pop_traits_details,
  72   genotyping_protocol_id => $genotyping_protocol_id,
  73 &>
  74
  75
  76 </&>
  77
  78
  79   <& /solgs/tools/correlation/correlation.mas,
  80      corre_pop_id  => $training_pop_id,
  81   &>
  82
  83 % if ($training_pop_id !~ /list|dataset/) {
  84
  85     <& /solgs/tools/anova/analysis.mas,
  86    training_pop_id => $training_pop_id,
  87   &>
  88
  89
  90   <& /tools/heritability/heritability.mas,
  91      pop_id  => $training_pop_id,
  92     &>
  93
  94 %}
  95
  96   <& /solgs/population/trait_acronyms.mas &>
  97
  98 %} else {
  99
 100 <&| /page/info_section.mas,
 101       collapsible => 1,
 102       collapsed   => 0,
 103       title       => "Genotype Data"
 104 &>
 105
 106   <div id="traits_list_message"  class="message">
 107     <p>There is no genotype data for this population.</p>
 108   </div>
 109
 110 </&>
 111 %}
 112 %} else {
 113
 114 <&| /page/info_section.mas,
 115     collapsible => 1,
 116     collapsed   => 0,
 117     title       => "Data Accessibility",
 118   &>
 119
 120 <p>This is private data.</p>
 121
 122 </&>
 123 %}
 124
 125  <& /solgs/population/hidden_input.mas,
 126       training_pop_id  => $training_pop_id,
 127      training_pop_name => $training_pop_name,
 128      training_pop_desc => $training_pop_desc,
 129      genotyping_protocol_id => $genotyping_protocol_id,
 130
 131    &>