mason/qtl/qtl_form/stat_form.mas

   1 <%doc>
   2
   3 =head1 NAME
   4 qtl/qtl_form/stat_form.mas - a mason component for a QTL stat parameters
   5 submission
   6
   7 =AUTHOR
   8 Isaak Y Tecle (iyt2@cornell.edu)
   9
  10 =cut
  11
  12 </%doc>
  13
  14 <%args>
  15
  16 $pop_id
  17 $guide
  18 $referer
  19
  20 </%args>
  21
  22 <%perl>
  23
  24 use CXGN::Page::FormattingHelpers qw | tooltipped_text |;
  25
  26 my $no_draws = tooltipped_text('No. of imputations:', 'required only if the
  27                                 Simulate method is selected for the
  28                                 calculation of QTL genotype probability
  29                                 method and Multiple Imputation');
  30 my $permu_level = tooltipped_text('Significance level of permutation test:',
  31                                   'required only if permutation analysis
  32                                   (LOD threshold) is run');
  33 my $genome_scan = tooltipped_text('Genome scan size (cM):', 'not required for
  34                                    Marker Regression');
  35 my $qtl_prob = tooltipped_text('QTL genotype probablity method:',
  36                                'not required for Marker Regression');
  37
  38 </%perl>
  39
  40
  41 % if ( $referer =~ /qtl\/form\/stat_form/)
  42 %{
  43 <& /page/page_title.mas,
  44    title => "Step 5: Submit Statistical Parameters"
  45 &>
  46 <& /page/info_section.mas,
  47    title => "Statistical Parameters",
  48    subtitle => $guide
  49 &>
  50 %}
  51
  52   <form action="/phenome/qtl_load.pl" method="POST" enctype="MULTIPART/FORM-DATA">
  53     <table cellspacing=20>
  54       <tr>
  55         <td>QTL model:
  56         </td>
  57         <td>
  58           <select name="stat_qtl_model">
  59             <option>
  60             <option>Single-QTL Scan
  61           </select>
  62         </td>
  63         <td>QTL mapping method:</td>
  64         <td>
  65           <select name="stat_qtl_method">
  66             <option>
  67             <option>Marker Regression
  68             <option>Maximum Likelihood
  69             <option>Haley-Knott Regression
  70             <option>Multiple Imputation
  71           </select>
  72         </td>
  73       </tr>
  74       <tr>
  75         <td><% $qtl_prob %>
  76         </td>
  77         <td>
  78           <select name="stat_prob_method">
  79             <option>
  80             <option>Calculate
  81             <option>Simulate
  82           </select>
  83         </td>
  84         <td>QTL genotype probability significance level:
  85         </td>
  86         <td>
  87           <select name="stat_prob_level">
  88             <option>
  89             <option>0.001
  90             <option>0.05
  91             <option>0.1
  92           </select>
  93         </td>
  94       </tr>
  95       <tr>
  96         <td><% $genome_scan %>
  97         </td>
  98         <td>
  99           <select name="stat_step_size">
 100             <option>
 101             <option>zero
 102             <option>1
 103             <option>2.5
 104             <option>5
 105             <option>10
 106           </select>
 107         </td>
 108         <td><% $no_draws %>
 109         </td>
 110         <td>
 111           <select name="stat_no_draws">
 112             <option>
 113             <option>5
 114             <option>10
 115             <option>15
 116             <option>20
 117           </select>
 118         </td>
 119       </tr>
 120       <tr>
 121         <td>No. of permutations:
 122         </td>
 123         <td>
 124           <select name="stat_permu_test">
 125             <option>
 126             <option>None
 127             <option>100
 128             <option>1000
 129           </select>
 130         </td>
 131         <td><% $permu_level %>
 132         </td>
 133         <td>
 134           <select name="stat_permu_level">
 135             <option>
 136             <option>0.05
 137             <option>0.001
 138             <option>0.1
 139           </select>
 140         </td>
 141       </tr>
 142       <tr>
 143         <td>
 144           <input type="hidden" name="type" value="stat_form">
 145         </td>
 146         <td>
 147           <input type="hidden" name="pop_id" value = <% $pop_id %> >
 148         </td>
 149       </tr>
 150       <tr>
 151         <td>
 152         </td>
 153         <td>
 154           <input type="submit" value="Submit">
 155         </td>
 156         <td>
 157         </td>
 158         <td>
 159           <input type="reset"  value="Reset">
 160         </td>
 161       </tr>
 162     </table>
 163   </form>
 164