[RkWard-devel] quantile plug-in

[Stefan Rödiger]

Hi RKWardians,

I have a new question. Right now I'm working on a quantile plug-in. So 
far it is working but I can not figure out how to apply the "names" 
attribute within the HTML output. It's important because I use 
user-defined sequences for the probabilities e.g. seq(0,1,0.1) equals 
0%, 10%, 20%, ..., 90%, 100%. This means if the user "needs" more then 
the common quartiles (0,1,0.25) he can also apply finer increments.

Example:

In R is the code:

a=c(1,2,3,4,5,6,7,8,9,10)
quantile(a, probs=seq(0,1,0.1))
0%  10%  20%  30%  40%  50%  60%  70%  80%  90% 100%
 1.0  1.9  2.8  3.7  4.6  5.5  6.4  7.3  8.2  9.1 10.0

In RKWard (php):
//a corresponds to <? getRK ("x"); ?>

<?
    function preprocess () {
    }

    function calculate () {
?>rk.temp = quantile (<? getRK ("x"); ?>, na.rm= <? getRK ("narm"); ?>, 
type = <? getRK ("samplequantile"); ?>, name = <? getRK ("names"); ?>, 
probs = seq(<? getRK ("probs1"); ?>, <? getRK ("probs2"); ?>, <? getRK 
("probs3"); ?>))

rk.temp.date = date()
<?
    }

    function printout () {

        //fetch some values from RKWard and assign some PHP-variables

        $x = getRK_val ("x.shortname");

        //produce the output
?>
cat ("<h1>Quantile</h1>")

    cat ("<table border = \"1\">")
        cat ("<TR><TD>Method:</TD><TD><? getRK ("samplequantile"); 
?></TD><TD>na.rm: <? getRK ("narm"); ?></TD></TR>")
        cat ("<TR><TD>created:</TD><TD>",rk.temp.date,"</TD></TR>")
            cat ("<TR><TD></TD></TR>")
        cat ("<TR><TD>Variable</TD><TD>quantile</TD></TR>")
        cat ("<TR><TD>dummy</TD><TD>", rk.temp,"</TD></TR>")
    cat ("</table>")
<?
    }

    function cleanup () {
?>
rm (rk.temp)
rm (rk.temp.date)
<?
    }
?>
...

But "0%  10%  20%  30%  40%  50%  60%  70%  80%  90% 100%" will not be 
shown within the table. What must be done to get it working?