2
function preprocess () {
5
function calculate () {
7
rk.temp = (qt (p = <? getRK ("p"); ?>, df = <? getRK ("df"); ?>, <? getRK ("tail"); ?>))
11
function printout () {
15
rk.header ("t quantile", list ("Probabilities [0,1]", "<? getRK ("p"); ?>", "Degrees of freedom", "<? getRK ("df"); ?>", "Tail", "<? getRK ("tail"); ?>"));
16
cat ("<h3>t quantile: ", rk.temp, "</h3>")
2
function preprocess () {
5
function calculate () {
7
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
9
rk.temp = (qt (p = <? echo ($p); ?>, df = <? getRK ("df"); ?>, <? getRK ("tail"); ?>))
13
function printout () {
16
rk.header ("t quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Degrees of freedom", "<? getRK ("df"); ?>", "Tail", "<? getRK ("tail"); ?>"));
17
cat ("<h3>t quantiles: ", rk.temp, "</h3>")