← Back to branch summary

~ubuntu-branches/ubuntu/karmic/rkward/karmic

« back to all changes in this revision

Viewing changes to rkward/plugins/distributions/f_probabilities.php

  • Committer: Bazaar Package Importer
  • Author(s): Thomas Friedrichsmeier
  • Date: 2006-11-06 16:30:00 UTC
  • mfrom: (1.2.1 upstream) (3.1.1 feisty)
  • Revision ID: james.westby@ubuntu.com-20061106163000-qi8ju75eqecrfay7
* new upstream release
* depend on either php4-cli or php5-cli

Show diffs side-by-side

added added

removed removed

Lines of Context:
rkward/plugins/distributions/f_probabilities.php
1
1
<?
2
 
        function preprocess () {
3
 
        }
4
 
        
5
 
        function calculate () {
6
 
?>
7
 
rk.temp <- (pf (q = <? getRK ("q"); ?>, df1 = <? getRK ("df1"); ?>, df2 = <? getRK ("df2"); ?>,  ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
8
 
<?
9
 
        }
10
 
        
11
 
        function printout () {
12
 
 
13
 
                //produce the output
14
 
?>
15
 
rk.header ("F probability", list ("Variable value", "<? getRK ("q"); ?>", "Numerator degrees of freedom", "<? getRK ("df1"); ?>", "Denominator degrees of freedom", "<? getRK ("df2"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>"));
16
 
cat ("<h3>F probability:  ", rk.temp, "</h3>")
17
 
<?
18
 
        }
19
 
        
20
 
        function cleanup () {
 
2
function preprocess () {
 
3
}
 
4
 
 
5
function calculate () {
 
6
        global $q;
 
7
        $q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
 
8
?>
 
9
rk.temp <- (pf (q = <? echo ($q); ?>, df1 = <? getRK ("df1"); ?>, df2 = <? getRK ("df2"); ?>,  ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
 
10
<?
 
11
}
 
12
 
 
13
function printout () {
 
14
        global $q;
 
15
?>
 
16
rk.header ("F probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Numerator degrees of freedom", "<? getRK ("df1"); ?>", "Denominator degrees of freedom", "<? getRK ("df2"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>"));
 
17
cat ("<h3>F probabilities:  ", rk.temp, "</h3>")
 
18
<?
 
19
}
 
20
 
 
21
function cleanup () {
21
22
?>
22
23
rm (rk.temp)
23
24
<?
24
 
        }
 
25
}
25
26
?>