[rkward-cvs] rkward/rkward/plugins/00means/00ttests/00independent_samples code.php, 1.6, 1.7

[Thomas Friedrichsmeier]

Update of /cvsroot/rkward/rkward/rkward/plugins/00means/00ttests/00independent_samples
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1371

Modified Files:
	code.php 
Log Message:
Small fixes by sjar

Index: code.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/00means/00ttests/00independent_samples/code.php,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** code.php	26 Aug 2004 19:33:58 -0000	1.6
--- code.php	1 Sep 2006 12:15:41 -0000	1.7
***************
*** 16,24 ****
  cat (paste ("<h2>Comparing", deparse (rk.temp.x), "against", deparse (rk.temp.y), "</h2>\n"))
  if (rk.temp$alternative == "less") {
! 	cat (paste ("<h3>H1:", rk.get.short.name (rk.temp.y), "is greater than", rk.get.short.name (rk.temp.x), "<h3>"))
  } else if (rk.temp$alternative == "greater") {
! 	cat (paste ("<h3>H1:", rk.get.short.name (rk.temp.x), "is greater than", rk.get.short.name (rk.temp.y), "<h3>"))
  } else {
! 	cat (paste ("<h3>H1:", rk.get.short.name (rk.temp.x), "and", rk.get.short.name (rk.temp.y), "differ<h3>"))
  }
  if (rk.temp.var.equal) {
--- 16,24 ----
  cat (paste ("<h2>Comparing", deparse (rk.temp.x), "against", deparse (rk.temp.y), "</h2>\n"))
  if (rk.temp$alternative == "less") {
! 	cat (paste ("<h3>H1:", rk.get.short.name (rk.temp.y), "is greater than", rk.get.short.name (rk.temp.x), "</h3>"))
  } else if (rk.temp$alternative == "greater") {
! 	cat (paste ("<h3>H1:", rk.get.short.name (rk.temp.x), "is greater than", rk.get.short.name (rk.temp.y), "</h3>"))
  } else {
! 	cat (paste ("<h3>H1:", rk.get.short.name (rk.temp.x), "and", rk.get.short.name (rk.temp.y), "differ</h3>"))
  }
  if (rk.temp.var.equal) {
***************
*** 34,38 ****
  if (rk.temp.print.conf.level) cat (paste ("<td rowspan=\"2\">[", rk.temp$conf.int[1], " .. ", rk.temp$conf.int[2],"]</td>", sep=""))
  cat ("</tr>\n")
! cat (paste ("<tr><td>", rk.get.description (rk.temp.y), "</td><td>", rk.temp$estimate[2], "</td><tr>", sep=""))
  cat ("</table>")
  <?
--- 34,38 ----
  if (rk.temp.print.conf.level) cat (paste ("<td rowspan=\"2\">[", rk.temp$conf.int[1], " .. ", rk.temp$conf.int[2],"]</td>", sep=""))
  cat ("</tr>\n")
! cat (paste ("<tr><td>", rk.get.description (rk.temp.y), "</td><td>", rk.temp$estimate[2], "</td></tr>", sep=""))
  cat ("</table>")
  <?