← Back to branch summary

~l3on/ubuntu/precise/rkward/rebuild1

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Thomas Friedrichsmeier
  • Date: 2008-04-20 21:30:00 UTC
  • mfrom: (1.2.2 upstream) (3.1.9 hardy)
  • Revision ID: james.westby@ubuntu.com-20080420213000-fs4i8efmfc793bnn
http://bugs.debian.org/475175
http://bugs.debian.org/463348
http://bugs.debian.org/475982
new upstream release
closes: #475175
closes: #463348
closes: #475982

Show diffs side-by-side

added added

removed removed

Lines of Context:
rkward/plugins/distributions/hypergeometric_probabilities.php
6
6
        global $q;
7
7
        $q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
8
8
?>
9
 
rk.temp = (phyper (q = <? echo ($q); ?>, m = <? getRK ("m"); ?>, n = <? getRK ("n"); ?>, k = <? getRK ("k"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
 
9
result <- (phyper (q = <? echo ($q); ?>, m = <? getRK ("m"); ?>, n = <? getRK ("n"); ?>, k = <? getRK ("k"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
10
10
<?
11
11
}
12
12
 
14
14
        global $q;
15
15
?>
16
16
rk.header ("Hypergeometric probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Number of white balls in the urn", "<? getRK ("m"); ?>", "Number of black balls in the urn", "<? getRK ("n"); ?>", "Number of balls drawn from the urn", "<? getRK ("k"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
17
 
cat ("<h3>Hypergeometric probabilities:  ", rk.temp, "</h3>")
18
 
<?
19
 
}
20
 
 
21
 
function cleanup () {
22
 
?>
23
 
rm (rk.temp)
 
17
rk.results (result, titles="Hypergeometric probabilities")
24
18
<?
25
19
}
26
20
?>