<br><br><div class="gmail_quote">2011/4/2 Thomas Friedrichsmeier <span dir="ltr"><<a href="mailto:thomas.friedrichsmeier@ruhr-uni-bochum.de">thomas.friedrichsmeier@ruhr-uni-bochum.de</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div class="im">
</div>Makes sense. On the other hand, thinking about it, I guess the conversion to<br>
ftable() does not belong into the bind.tables() function at all. It's merely<br>
something to format the table for printing.<br>
 </blockquote><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
So, instead, I think the basic pattern should be<br>
<br>
  output[[i]] <- bind.tables ("counts"=..., "% or row"=...)<br>
  rk.print (ftable (output[[i]], col.vars=2))<br></blockquote><div> </div><div></div><div class="im">I agree I will change this<br><br>
<br>
</div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">I think you can simplify the addition of margins by using the "margin"-<br>

parameter of addmargins. Then you would not need to add margins to each<br>
statistic, separately, but rather<br>
  addmargins (output[[i]], margin=1:2)<br>
(untested). </blockquote><div> </div><div>It should work I will make some tests at nigth<br> </div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">

Also, the rounding can probably be done for the whole table at once, rather<br>
than separately for each statistic.<br></blockquote><div> </div><div>I recently discoverd that round can be indicated in the parameters of HTML, so is posible to use rk.print(x, digits=2)<br>I will change this when I get some time<br>
<br>>You will have noted that I did not arrive at the current<br>
>solution at once, either.<br><br>I'm not part of the active developement team, I'm only make R functions or modifications to the rkward plugins for my own use, but I want to share it because I think that some one may need it. I still think that this plugin must be considerd as a mock up, or something like this. It could be submited to a repository of rkward plugins as a fork or a modification of the oficial plugins, but not part of the default rkward package. I know that I'm only learning how to write code in R and in java script, so my algorithms may not be the most apropiated.<br>
<br>Besides, I finally make the .pluginmap file, so install the plugin should be eassier. At now most of the items in the dialog has no effect on the output, and I put it only to ilustrate which statistcs I planning to include. I will try to do this job at nigth.<br>
<br>-- <br></div></div>Amor y Paz<br> _    _<br> \\  //<br>_ \\//<br>\\   ^^><br> \____/<br><br>CHAU<br>