2
function preprocess () {
3
// we'll need the eRm package, so in case it's not loaded...
8
function calculate () {
9
// let's read all values into php variables for the sake of readable code
10
$rad_splitcr = getRK_val("rad_splitcr");
11
$splitvector = getRK_val("splitvector");
13
?>waldtest.res <- Waldtest(<? getRK("x");
14
// check if any advanced control options must be inserted
15
if($rad_splitcr == "mean") echo(", splitcr=\"mean\"") ;
16
if($rad_splitcr == "vector") echo(", splitcr=".$splitvector) ;
20
function printout () {
22
rk.header ("Wald test (<? getRK("x"); ?>)")
23
rk.print (waldtest.res)
b'\\ No newline at end of file'