~l3on/ubuntu/precise/rkward/rebuild1

« back to all changes in this revision

Viewing changes to rkward/plugins/distributions/exponential_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
new upstream release
closes: #475175
closes: #463348
closes: #475982

Show diffs side-by-side

added added

removed removed

Lines of Context:
7
7
        $q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
8
8
 
9
9
?>
10
 
rk.temp = (pexp (q = <? echo ($q); ?>, rate = <? getRK ("rate"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
 
10
result <- (pexp (q = <? echo ($q); ?>, rate = <? getRK ("rate"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
11
11
<?
12
12
}
13
13
 
15
15
        global $q;
16
16
?>
17
17
rk.header ("Exponential probabilities", list ("Vector of quantiles", "<? echo ($q); ?>", "Rate", "<? getRK ("rate"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
18
 
cat ("<h3>Exponential probabilities:  ", rk.temp, "</h3>")
19
 
<?
20
 
}
21
 
 
22
 
function cleanup () {
23
 
?>
24
 
rm (rk.temp)
 
18
rk.results (result, titles="Exponential probabilities")
25
19
<?
26
20
}
27
21
?>