~ubuntu-branches/ubuntu/wily/bioperl-run/wily-proposed

« back to all changes in this revision

Viewing changes to Bio/Tools/Run/PiseApplication/rnaheat.pm

  • Committer: Bazaar Package Importer
  • Author(s): Charles Plessy
  • Date: 2009-09-03 11:00:03 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20090903110003-11of27rxner5vnl9
Tags: 1.6.1-1
* New upstream release.
* debian/patches/10-wrong-path-for-interpreter.patch: removed
  (fixed upstream).
* debian/watch updated (bioperl -> BioPerl).
* debian/rules refreshed with dh-make-perl 0.53.
  - Disabled installation of examples (removed upstream).
  - Removed the correction of file permission of Pise documentation
    (removed upstream).
  - Removed patching facilities (no patches anymore).
  - Disabled tests as I experience failures with t/Eponine.t despite
    this program is not installed.
* debian/copyright:
  - Removed vanity lines about debianization and debian copyright.
  - Incremented years to 2009.
  - Updated to latest experimentation of the machine-readable license summary.
* debian/control:
  - Incremented Standards-Version to reflect conformance on new Policy
    (dropped versionned build-dependancy on Perl).
  - Removed build-dependancy on quilt (no patches anymore).
  - Depend and Build-Depend on bioperl versions superior or equal to 1.6.0.
  - Build-depends on, and Recommdnes libalgorithm-diff-perl, libipc-run-perl,
    libio-string-perl and libxml-twig-perl, that are listed in DEPENDANCIES.
  - Build-depends on libarray-compare-perl and libtree-dagnode-perl
    (otherwise tests fail). 
  - Depend on amap-align instead of amap (Closes: #541274).

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
# $Id: rnaheat.pm,v 1.6 2006/07/04 22:23:35 mauricio Exp $
2
 
# BioPerl module for Bio::Tools::Run::PiseApplication::rnaheat
3
 
#
4
 
# Cared for by Catherine Letondal <letondal@pasteur.fr>
5
 
#
6
 
# For copyright and disclaimer see below.
7
 
#
8
 
# POD documentation - main docs before the code
9
 
 
10
 
=head1 NAME
11
 
 
12
 
Bio::Tools::Run::PiseApplication::rnaheat
13
 
 
14
 
=head1 SYNOPSIS
15
 
 
16
 
  #
17
 
 
18
 
=head1 DESCRIPTION
19
 
 
20
 
Bio::Tools::Run::PiseApplication::rnaheat
21
 
 
22
 
      Bioperl class for:
23
 
 
24
 
        VIENNARNA       RNAheat - calculate specific heat of RNAs (Hofacker, Stadler)
25
 
 
26
 
        References:
27
 
 
28
 
                I.L. Hofacker, W. Fontana, P.F. Stadler, S. Bonhoeffer, M. Tacker, P. Schuster (1994) Fast Folding and Comparison of RNA Secondary Structures. Monatshefte f. Chemie 125: 167-188
29
 
 
30
 
                J.S. McCaskill (1990) The equilibrium partition function and base pair binding probabilities for RNA secondary structures, Biopolymers 29: 11051119 D. Adams (1979) The hitchhiker's guide to the galaxy, Pan Books, London
31
 
 
32
 
 
33
 
 
34
 
      Parameters: 
35
 
 
36
 
        (see also:
37
 
          http://bioweb.pasteur.fr/seqanal/interfaces/rnaheat.html 
38
 
         for available values):
39
 
 
40
 
 
41
 
                rnaheat (String)
42
 
 
43
 
                seq (Sequence)
44
 
                        RNA Sequences File
45
 
 
46
 
                temp_min (Integer)
47
 
                        Lowest temperature, default is 0C (-Tmin)
48
 
 
49
 
                temp_max (Integer)
50
 
                        Highest temperature, default is 100C (-Tmax)
51
 
 
52
 
                stepsize (Integer)
53
 
                        Calculate partition function every stepsize degrees C. Default is 1C (-h)
54
 
 
55
 
                ipoints (Integer)
56
 
                        Produces a smoother curve by increasing ipoints (-m)
57
 
 
58
 
                tetraloops (Switch)
59
 
                        Do not include special stabilizing energies for certain tetraloops (-4)
60
 
 
61
 
                dangling (Excl)
62
 
                        How to treat dangling end energies for bases adjacent to helices in free ends and multiloops (-d)
63
 
 
64
 
                noGU (Switch)
65
 
                        Do not allow GU pairs (-noGU)
66
 
 
67
 
                noCloseGU (Switch)
68
 
                        Do not allow GU pairs at the end of helices (-noCloseGU)
69
 
 
70
 
                nsp (String)
71
 
                        Non standard pairs (comma seperated list) (-nsp)
72
 
 
73
 
                parameter (InFile)
74
 
                        Parameter file (-P)
75
 
 
76
 
                energy (Excl)
77
 
                        Energy parameters for the artificial ABCD... alphabet (-e)
78
 
 
79
 
                readseq (String)
80
 
 
81
 
=head1 FEEDBACK
82
 
 
83
 
=head2 Mailing Lists
84
 
 
85
 
User feedback is an integral part of the evolution of this and other
86
 
Bioperl modules. Send your comments and suggestions preferably to
87
 
the Bioperl mailing list.  Your participation is much appreciated.
88
 
 
89
 
  bioperl-l@bioperl.org                  - General discussion
90
 
  http://bioperl.org/wiki/Mailing_lists  - About the mailing lists
91
 
 
92
 
=head2 Reporting Bugs
93
 
 
94
 
Report bugs to the Bioperl bug tracking system to help us keep track
95
 
of the bugs and their resolution. Bug reports can be submitted via the
96
 
web:
97
 
 
98
 
  http://bugzilla.open-bio.org/
99
 
 
100
 
=head1 AUTHOR
101
 
 
102
 
Catherine Letondal (letondal@pasteur.fr)
103
 
 
104
 
=head1 COPYRIGHT
105
 
 
106
 
Copyright (C) 2003 Institut Pasteur & Catherine Letondal.
107
 
All Rights Reserved.
108
 
 
109
 
This module is free software; you can redistribute it and/or modify
110
 
it under the same terms as Perl itself.
111
 
 
112
 
=head1 DISCLAIMER
113
 
 
114
 
This software is provided "as is" without warranty of any kind.
115
 
 
116
 
=head1 SEE ALSO
117
 
 
118
 
=over
119
 
 
120
 
=item *
121
 
 
122
 
http://bioweb.pasteur.fr/seqanal/interfaces/rnaheat.html
123
 
 
124
 
=item *
125
 
 
126
 
Bio::Tools::Run::PiseApplication
127
 
 
128
 
=item *
129
 
 
130
 
Bio::Tools::Run::AnalysisFactory::Pise
131
 
 
132
 
=item *
133
 
 
134
 
Bio::Tools::Run::PiseJob
135
 
 
136
 
=back
137
 
 
138
 
=cut
139
 
 
140
 
#'
141
 
package Bio::Tools::Run::PiseApplication::rnaheat;
142
 
 
143
 
use vars qw(@ISA);
144
 
use strict;
145
 
use Bio::Tools::Run::PiseApplication;
146
 
 
147
 
@ISA = qw(Bio::Tools::Run::PiseApplication);
148
 
 
149
 
=head2 new
150
 
 
151
 
 Title   : new()
152
 
 Usage   : my $rnaheat = Bio::Tools::Run::PiseApplication::rnaheat->new($location, $email, @params);
153
 
 Function: Creates a Bio::Tools::Run::PiseApplication::rnaheat object.
154
 
           This method should not be used directly, but rather by 
155
 
           a Bio::Tools::Run::AnalysisFactory::Pise instance.
156
 
           my $factory = Bio::Tools::Run::AnalysisFactory::Pise->new();
157
 
           my $rnaheat = $factory->program('rnaheat');
158
 
 Example : -
159
 
 Returns : An instance of Bio::Tools::Run::PiseApplication::rnaheat.
160
 
 
161
 
=cut
162
 
 
163
 
sub new {
164
 
    my ($class, $location, $email, @params) = @_;
165
 
    my $self = $class->SUPER::new($location, $email);
166
 
 
167
 
# -- begin of definitions extracted from /local/gensoft/lib/Pise/5.a/PerlDef/rnaheat.pm
168
 
 
169
 
    $self->{COMMAND}   = "rnaheat";
170
 
    $self->{VERSION}   = "5.a";
171
 
    $self->{TITLE}   = "VIENNARNA";
172
 
 
173
 
    $self->{DESCRIPTION}   = "RNAheat - calculate specific heat of RNAs";
174
 
 
175
 
    $self->{OPT_EMAIL}   = 0;
176
 
 
177
 
    $self->{AUTHORS}   = "Hofacker, Stadler";
178
 
 
179
 
    $self->{DOCLINK}   = "http://bioweb.pasteur.fr/docs/gensoft-na.html#VIENNARNA";
180
 
 
181
 
    $self->{REFERENCE}   = [
182
 
 
183
 
         "I.L. Hofacker, W. Fontana, P.F. Stadler, S. Bonhoeffer, M. Tacker, P. Schuster (1994) Fast Folding and Comparison of RNA Secondary Structures. Monatshefte f. Chemie 125: 167-188",
184
 
 
185
 
         "J.S. McCaskill (1990) The equilibrium partition function and base pair binding probabilities for RNA secondary structures, Biopolymers 29: 11051119 D. Adams (1979) The hitchhiker's guide to the galaxy, Pan Books, London",
186
 
 ];
187
 
 
188
 
    $self->{_INTERFACE_STANDOUT} = undef;
189
 
    $self->{_STANDOUT_FILE} = undef;
190
 
 
191
 
    $self->{TOP_PARAMETERS}  = [ 
192
 
        "rnaheat",
193
 
        "seq",
194
 
        "control",
195
 
        "input",
196
 
        "readseq",
197
 
 
198
 
    ];
199
 
 
200
 
    $self->{PARAMETERS_ORDER}  = [
201
 
        "rnaheat",
202
 
        "seq",  # RNA Sequences File
203
 
        "control",      # Control options
204
 
        "temp_min",     # Lowest temperature, default is 0C (-Tmin)
205
 
        "temp_max",     # Highest temperature, default is 100C (-Tmax)
206
 
        "stepsize",     # Calculate partition function every stepsize degrees C. Default is 1C (-h)
207
 
        "ipoints",      # Produces a smoother curve by increasing ipoints (-m)
208
 
        "tetraloops",   # Do not include special stabilizing energies for certain tetraloops (-4)
209
 
        "dangling",     # How to treat dangling end energies for bases adjacent to helices in free ends and multiloops (-d)
210
 
        "input",        # Input parameters
211
 
        "noGU",         # Do not allow GU pairs (-noGU)
212
 
        "noCloseGU",    # Do not allow GU pairs at the end of helices (-noCloseGU)
213
 
        "nsp",  # Non standard pairs (comma seperated list) (-nsp)
214
 
        "parameter",    # Parameter file (-P)
215
 
        "energy",       # Energy parameters for the artificial ABCD... alphabet (-e)
216
 
        "readseq",
217
 
 
218
 
    ];
219
 
 
220
 
    $self->{TYPE}  = {
221
 
        "rnaheat" => 'String',
222
 
        "seq" => 'Sequence',
223
 
        "control" => 'Paragraph',
224
 
        "temp_min" => 'Integer',
225
 
        "temp_max" => 'Integer',
226
 
        "stepsize" => 'Integer',
227
 
        "ipoints" => 'Integer',
228
 
        "tetraloops" => 'Switch',
229
 
        "dangling" => 'Excl',
230
 
        "input" => 'Paragraph',
231
 
        "noGU" => 'Switch',
232
 
        "noCloseGU" => 'Switch',
233
 
        "nsp" => 'String',
234
 
        "parameter" => 'InFile',
235
 
        "energy" => 'Excl',
236
 
        "readseq" => 'String',
237
 
 
238
 
    };
239
 
 
240
 
    $self->{FORMAT}  = {
241
 
        "rnaheat" => {
242
 
                "perl" => '"RNAheat"',
243
 
        },
244
 
        "seq" => {
245
 
                "perl" => '" < $value" ',
246
 
        },
247
 
        "control" => {
248
 
        },
249
 
        "temp_min" => {
250
 
                "perl" => '(defined $value && $value ne $vdef)? " -Tmin $value" : ""',
251
 
        },
252
 
        "temp_max" => {
253
 
                "perl" => '(defined $value && $value ne $vdef)? " -Tmax $value" : ""',
254
 
        },
255
 
        "stepsize" => {
256
 
                "perl" => '(defined $value && $value ne $vdef)? " -h $value" : ""',
257
 
        },
258
 
        "ipoints" => {
259
 
                "perl" => '(defined $value && $value ne $vdef)? " -m $value" : ""',
260
 
        },
261
 
        "tetraloops" => {
262
 
                "perl" => '($value)? " -4" : ""',
263
 
        },
264
 
        "dangling" => {
265
 
                "perl" => '($value)? " $value" : ""',
266
 
        },
267
 
        "input" => {
268
 
        },
269
 
        "noGU" => {
270
 
                "perl" => '($value)? " -noGU" : ""',
271
 
        },
272
 
        "noCloseGU" => {
273
 
                "perl" => '($value)? " -noCloseGU" : ""',
274
 
        },
275
 
        "nsp" => {
276
 
                "perl" => '($value)? " -nsp $value" : "" ',
277
 
        },
278
 
        "parameter" => {
279
 
                "perl" => '($value)? " -P $value" : ""',
280
 
        },
281
 
        "energy" => {
282
 
                "perl" => '($value)? " -e $value" : ""',
283
 
        },
284
 
        "readseq" => {
285
 
                "perl" => '"/local/gensoft/lib/ViennaRNA/readseq  -f=19 -a $seq > $seq.tmp && (cp $seq $seq.orig && mv $seq.tmp $seq) ; "',
286
 
        },
287
 
 
288
 
    };
289
 
 
290
 
    $self->{FILENAMES}  = {
291
 
 
292
 
    };
293
 
 
294
 
    $self->{SEQFMT}  = {
295
 
        "seq" => [8],
296
 
 
297
 
    };
298
 
 
299
 
    $self->{GROUP}  = {
300
 
        "rnaheat" => 0,
301
 
        "seq" => 1000,
302
 
        "control" => 2,
303
 
        "temp_min" => 2,
304
 
        "temp_max" => 2,
305
 
        "stepsize" => 2,
306
 
        "ipoints" => 2,
307
 
        "tetraloops" => 2,
308
 
        "dangling" => 2,
309
 
        "input" => 2,
310
 
        "noGU" => 2,
311
 
        "noCloseGU" => 2,
312
 
        "nsp" => 2,
313
 
        "parameter" => 2,
314
 
        "energy" => 2,
315
 
        "readseq" => -10,
316
 
 
317
 
    };
318
 
 
319
 
    $self->{BY_GROUP_PARAMETERS}  = [
320
 
        "readseq",
321
 
        "rnaheat",
322
 
        "control",
323
 
        "temp_min",
324
 
        "temp_max",
325
 
        "stepsize",
326
 
        "ipoints",
327
 
        "tetraloops",
328
 
        "dangling",
329
 
        "input",
330
 
        "noGU",
331
 
        "noCloseGU",
332
 
        "nsp",
333
 
        "parameter",
334
 
        "energy",
335
 
        "seq",
336
 
 
337
 
    ];
338
 
 
339
 
    $self->{SIZE}  = {
340
 
 
341
 
    };
342
 
 
343
 
    $self->{ISHIDDEN}  = {
344
 
        "rnaheat" => 1,
345
 
        "seq" => 0,
346
 
        "control" => 0,
347
 
        "temp_min" => 0,
348
 
        "temp_max" => 0,
349
 
        "stepsize" => 0,
350
 
        "ipoints" => 0,
351
 
        "tetraloops" => 0,
352
 
        "dangling" => 0,
353
 
        "input" => 0,
354
 
        "noGU" => 0,
355
 
        "noCloseGU" => 0,
356
 
        "nsp" => 0,
357
 
        "parameter" => 0,
358
 
        "energy" => 0,
359
 
        "readseq" => 1,
360
 
 
361
 
    };
362
 
 
363
 
    $self->{ISCOMMAND}  = {
364
 
        "rnaheat" => 1,
365
 
        "seq" => 0,
366
 
        "control" => 0,
367
 
        "temp_min" => 0,
368
 
        "temp_max" => 0,
369
 
        "stepsize" => 0,
370
 
        "ipoints" => 0,
371
 
        "tetraloops" => 0,
372
 
        "dangling" => 0,
373
 
        "input" => 0,
374
 
        "noGU" => 0,
375
 
        "noCloseGU" => 0,
376
 
        "nsp" => 0,
377
 
        "parameter" => 0,
378
 
        "energy" => 0,
379
 
        "readseq" => 0,
380
 
 
381
 
    };
382
 
 
383
 
    $self->{ISMANDATORY}  = {
384
 
        "rnaheat" => 0,
385
 
        "seq" => 1,
386
 
        "control" => 0,
387
 
        "temp_min" => 0,
388
 
        "temp_max" => 0,
389
 
        "stepsize" => 0,
390
 
        "ipoints" => 0,
391
 
        "tetraloops" => 0,
392
 
        "dangling" => 0,
393
 
        "input" => 0,
394
 
        "noGU" => 0,
395
 
        "noCloseGU" => 0,
396
 
        "nsp" => 0,
397
 
        "parameter" => 0,
398
 
        "energy" => 0,
399
 
        "readseq" => 0,
400
 
 
401
 
    };
402
 
 
403
 
    $self->{PROMPT}  = {
404
 
        "rnaheat" => "",
405
 
        "seq" => "RNA Sequences File",
406
 
        "control" => "Control options",
407
 
        "temp_min" => "Lowest temperature, default is 0C (-Tmin)",
408
 
        "temp_max" => "Highest temperature, default is 100C (-Tmax)",
409
 
        "stepsize" => "Calculate partition function every stepsize degrees C. Default is 1C (-h)",
410
 
        "ipoints" => "Produces a smoother curve by increasing ipoints (-m)",
411
 
        "tetraloops" => "Do not include special stabilizing energies for certain tetraloops (-4)",
412
 
        "dangling" => "How to treat dangling end energies for bases adjacent to helices in free ends and multiloops (-d)",
413
 
        "input" => "Input parameters",
414
 
        "noGU" => "Do not allow GU pairs (-noGU)",
415
 
        "noCloseGU" => "Do not allow GU pairs at the end of helices (-noCloseGU)",
416
 
        "nsp" => "Non standard pairs (comma seperated list) (-nsp)",
417
 
        "parameter" => "Parameter file (-P)",
418
 
        "energy" => "Energy parameters for the artificial ABCD... alphabet (-e)",
419
 
        "readseq" => "",
420
 
 
421
 
    };
422
 
 
423
 
    $self->{ISSTANDOUT}  = {
424
 
        "rnaheat" => 0,
425
 
        "seq" => 0,
426
 
        "control" => 0,
427
 
        "temp_min" => 0,
428
 
        "temp_max" => 0,
429
 
        "stepsize" => 0,
430
 
        "ipoints" => 0,
431
 
        "tetraloops" => 0,
432
 
        "dangling" => 0,
433
 
        "input" => 0,
434
 
        "noGU" => 0,
435
 
        "noCloseGU" => 0,
436
 
        "nsp" => 0,
437
 
        "parameter" => 0,
438
 
        "energy" => 0,
439
 
        "readseq" => 0,
440
 
 
441
 
    };
442
 
 
443
 
    $self->{VLIST}  = {
444
 
 
445
 
        "control" => ['temp_min','temp_max','stepsize','ipoints','tetraloops','dangling',],
446
 
        "dangling" => ['','only unpaired bases can participate in at most one dangling end','-d','-d: ignores dangling ends altogether','-d2','-d2: the check is ignored, this is the default for partition function folding.',],
447
 
        "input" => ['noGU','noCloseGU','nsp','parameter','energy',],
448
 
        "energy" => ['1','1: use energy parameters for GC pairs','2','2: use energy parameters for AU pairs',],
449
 
    };
450
 
 
451
 
    $self->{FLIST}  = {
452
 
 
453
 
    };
454
 
 
455
 
    $self->{SEPARATOR}  = {
456
 
 
457
 
    };
458
 
 
459
 
    $self->{VDEF}  = {
460
 
        "temp_min" => '0',
461
 
        "temp_max" => '100',
462
 
        "stepsize" => '1',
463
 
        "ipoints" => '2',
464
 
        "tetraloops" => '0',
465
 
        "dangling" => '""',
466
 
        "noGU" => '0',
467
 
        "noCloseGU" => '0',
468
 
 
469
 
    };
470
 
 
471
 
    $self->{PRECOND}  = {
472
 
        "rnaheat" => { "perl" => '1' },
473
 
        "seq" => { "perl" => '1' },
474
 
        "control" => { "perl" => '1' },
475
 
        "temp_min" => { "perl" => '1' },
476
 
        "temp_max" => { "perl" => '1' },
477
 
        "stepsize" => { "perl" => '1' },
478
 
        "ipoints" => { "perl" => '1' },
479
 
        "tetraloops" => { "perl" => '1' },
480
 
        "dangling" => { "perl" => '1' },
481
 
        "input" => { "perl" => '1' },
482
 
        "noGU" => { "perl" => '1' },
483
 
        "noCloseGU" => { "perl" => '1' },
484
 
        "nsp" => { "perl" => '1' },
485
 
        "parameter" => { "perl" => '1' },
486
 
        "energy" => { "perl" => '1' },
487
 
        "readseq" => {
488
 
                "perl" => 'defined $rnafold || defined $rnasubopt',
489
 
        },
490
 
 
491
 
    };
492
 
 
493
 
    $self->{CTRL}  = {
494
 
        "dangling" => {
495
 
                "perl" => {
496
 
                        '(! (defined $rnafold || defined $rnaeval || defined $rnainverse) &&   ($dangling eq "-d2")  && ($dangling = "") && 0)' => "no message",
497
 
                },
498
 
        },
499
 
 
500
 
    };
501
 
 
502
 
    $self->{PIPEOUT}  = {
503
 
 
504
 
    };
505
 
 
506
 
    $self->{WITHPIPEOUT}  = {
507
 
 
508
 
    };
509
 
 
510
 
    $self->{PIPEIN}  = {
511
 
 
512
 
    };
513
 
 
514
 
    $self->{WITHPIPEIN}  = {
515
 
 
516
 
    };
517
 
 
518
 
    $self->{ISCLEAN}  = {
519
 
        "rnaheat" => 0,
520
 
        "seq" => 0,
521
 
        "control" => 0,
522
 
        "temp_min" => 0,
523
 
        "temp_max" => 0,
524
 
        "stepsize" => 0,
525
 
        "ipoints" => 0,
526
 
        "tetraloops" => 0,
527
 
        "dangling" => 0,
528
 
        "input" => 0,
529
 
        "noGU" => 0,
530
 
        "noCloseGU" => 0,
531
 
        "nsp" => 0,
532
 
        "parameter" => 0,
533
 
        "energy" => 0,
534
 
        "readseq" => 0,
535
 
 
536
 
    };
537
 
 
538
 
    $self->{ISSIMPLE}  = {
539
 
        "rnaheat" => 0,
540
 
        "seq" => 1,
541
 
        "control" => 0,
542
 
        "temp_min" => 0,
543
 
        "temp_max" => 0,
544
 
        "stepsize" => 0,
545
 
        "ipoints" => 0,
546
 
        "tetraloops" => 0,
547
 
        "dangling" => 0,
548
 
        "input" => 0,
549
 
        "noGU" => 0,
550
 
        "noCloseGU" => 0,
551
 
        "nsp" => 0,
552
 
        "parameter" => 0,
553
 
        "energy" => 0,
554
 
        "readseq" => 0,
555
 
 
556
 
    };
557
 
 
558
 
    $self->{PARAMFILE}  = {
559
 
 
560
 
    };
561
 
 
562
 
    $self->{COMMENT}  = {
563
 
        "ipoints" => [
564
 
                "The program fits a parabola to 2*ipoints+1 data points to calculate 2nd derivatives. Increasing this parameter produces a smoother curve. Default is 2.",
565
 
        ],
566
 
        "dangling" => [
567
 
                "How to treat \'dangling end\' energies for bases adjacent to helices in free ends and multiloops: Normally only unpaired bases can participate in at most one dangling end. With -d2 this check is ignored, this is the default for partition function folding (-p). -d ignores dangling ends altogether. Note that by default pf and mfe folding treat dangling ends differently, use -d2 (or -d) in addition to -p to ensure that both algorithms use the same energy model. The -d2 options is available for RNAfold, RNAeval, and RNAinverse only.",
568
 
        ],
569
 
        "nsp" => [
570
 
                "Allow other pairs in addition to the usual AU,GC,and GU pairs. pairs is a comma seperated list of additionally allowed pairs. If a the first character is a \'-\' then AB will imply that AB and BA are allowed pairs. e.g. RNAfold -nsp -GA will allow GA and AG pairs. Nonstandard pairs are given 0 stacking energy.",
571
 
        ],
572
 
        "parameter" => [
573
 
                "Read energy parameters from paramfile, instead of using the default parameter set. A sample parameterfile should accompany your distribution. See the RNAlib documentation for details on the file format.",
574
 
        ],
575
 
 
576
 
    };
577
 
 
578
 
    $self->{SCALEMIN}  = {
579
 
 
580
 
    };
581
 
 
582
 
    $self->{SCALEMAX}  = {
583
 
 
584
 
    };
585
 
 
586
 
    $self->{SCALEINC}  = {
587
 
 
588
 
    };
589
 
 
590
 
    $self->{INFO}  = {
591
 
 
592
 
    };
593
 
 
594
 
# -- end of definitions extracted from /local/gensoft/lib/Pise/5.a/PerlDef/rnaheat.pm
595
 
 
596
 
 
597
 
 
598
 
    $self->_init_params(@params);
599
 
 
600
 
    return $self;
601
 
}
602
 
 
603
 
 
604
 
 
605
 
1; # Needed to keep compiler happy
606