[RkWard-devel] quantile plug-in

[Pierre Ecochard]

Hi Stefan,

There are R functions in RKWard that are intended to help you producing HTML 
output. They rely on R2HTML, which can be easily installed from the CRAN.

For example, in you case, you would run the following code inside RKWard:
a=c(1,2,3,4,5,6,7,8,9,10)
q=quantile(a, probs=seq(0,1,0.1))
rk.print(q)

Then you use the "output->refresh" menu and you can see that in the rkward 
output you have a nice HTML table with the 'names' attribute taken into 
account.

You may also want to look at rk.graph.on() and rk.graph.off().

Pïerre


Le Samedi 18 Février 2006 12:53, Stefan Rödiger a écrit :
> 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?
>

-- 
Pierre Ecochard
50 bis rue Marx Dormoy
75018 Paris
01 42 29 03 34
---
Given the choice between Bob Solow and an econometric model to make forecasts, 
I'd choose Bob Solow; but I'd rather have Bob Solow with an econometric 
model, than Bob Solow without one
-Paul Samuelson