[rkward-cvs] rkward/rkward/plugins/distributions binomial_probabilities.php,1.1,1.2

[Thomas Friedrichsmeier]

Update of /cvsroot/rkward/rkward/rkward/plugins/distributions
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15150/rkward/plugins/distributions

Modified Files:
	binomial_probabilities.php 
Log Message:
Added experimental rk.header function for use in printout

Index: binomial_probabilities.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/binomial_probabilities.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** binomial_probabilities.php	12 Mar 2006 18:09:11 -0000	1.1
--- binomial_probabilities.php	29 Mar 2006 17:27:56 -0000	1.2
***************
*** 6,10 ****
  ?>
  rk.temp = (pbinom (q = <? getRK ("q"); ?>, size = <? getRK ("size"); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>))
- rk.temp.date = date()
  <?
  	}
--- 6,9 ----
***************
*** 14,25 ****
  		//produce the output
  ?>
! cat ("<h1>Binomial tail probability</h1>")
! 
! 	cat ("<table border = \"1\">")
! 		cat ("<TR><TD>Method:</TD><TD>Variable value = <? getRK ("q"); ?></TD><TD>Binomial trials =  <? getRK ("size"); ?></TD><TD>Probability of success =  <? getRK ("prob"); ?></TD><TD><? getRK ("tail"); ?></TD></TR>")
! 		cat ("<TR><TD>", rk.temp.date,"</TD></TR>")
! 			cat ("<TR><TD></TD></TR>")
! 		cat ("<TR><TD>Binomial tail probability:</TD><TD> ", rk.temp," </TD></TR>")
! 	cat ("</table>")
  <?
  	}
--- 13,18 ----
  		//produce the output
  ?>
! rk.header ("Binomial tail probability", list ("Variable value", "<? getRK ("q"); ?>", "Binomial trials", "<? getRK ("size"); ?>", "Probability of success", "<? getRK ("prob"); ?>", "<? getRK ("tail"); ?>"));
! cat ("<h3>Binomial tail probability:  ", rk.temp, "</h3>")
  <?
  	}
***************
*** 28,32 ****
  ?>
  rm (rk.temp)
- rm (rk.temp.date)
  <?
  	}
--- 21,24 ----