[rkward-cvs] rkward/rkward/plugins/distributions binomial_probabilities.php,1.2,1.3 binomial_quantiles.php,1.1,1.2 binomial_quantiles.xml,1.1,1.2 binomial_tail_probabilities.php,1.1,1.2 chi_squared_probabilities.php,1.1,1.2 chi_squared_quantiles.php,1.1,1.2 f_probabilities.php,1.1,1.2 f_quantiles.php,1.1,1.2 normal_probabilities.php,1.1,1.2 normal_quantiles.php,1.1,1.2 normal_quantiles.xml,1.1,1.2 plot_binomial_distribution.php,1.1,1.2 plot_binomial_distribution.xml,1.1,1.2 plot_chi_squared_distribution.php,1.1,1.2 plot_chi_squared_distribution.xml,1.1,1.2 plot_f_distribution.php,1.1,1.2 plot_f_distribution.xml,1.2,1.3 plot_normal_distribution.php,1.1,1.2 plot_normal_distribution.xml,1.1,1.2 plot_poisson_distribution.php,1.1,1.2 plot_poisson_distribution.xml,1.1,1.2 plot_t_distribution.php,1.1,1.2 plot_t_distribution.xml,1.2,1.3 poisson_probabilities.php,1.1,1.2 poisson_probabilities.xml,1.1,1.2 t_probabilities.php,1.1,1.2 t_quantiles.php,1.1,1.2
Thomas Friedrichsmeier
tfry at users.sourceforge.net
Wed Apr 5 10:10:06 UTC 2006
Update of /cvsroot/rkward/rkward/rkward/plugins/distributions
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1831/distributions
Modified Files:
binomial_probabilities.php binomial_quantiles.php
binomial_quantiles.xml binomial_tail_probabilities.php
chi_squared_probabilities.php chi_squared_quantiles.php
f_probabilities.php f_quantiles.php normal_probabilities.php
normal_quantiles.php normal_quantiles.xml
plot_binomial_distribution.php plot_binomial_distribution.xml
plot_chi_squared_distribution.php
plot_chi_squared_distribution.xml plot_f_distribution.php
plot_f_distribution.xml plot_normal_distribution.php
plot_normal_distribution.xml plot_poisson_distribution.php
plot_poisson_distribution.xml plot_t_distribution.php
plot_t_distribution.xml poisson_probabilities.php
poisson_probabilities.xml t_probabilities.php t_quantiles.php
Log Message:
Updates, cleanups and bugfixes for plugins
Index: t_probabilities.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/t_probabilities.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** t_probabilities.php 12 Mar 2006 18:09:12 -0000 1.1
--- t_probabilities.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 6,10 ****
?>
rk.temp = (pt (q = <? getRK ("val"); ?>, df = <? getRK ("df"); ?>, <? getRK ("tail"); ?>))
- rk.temp.date = date()
<?
}
--- 6,9 ----
***************
*** 14,25 ****
//produce the output
?>
! cat ("<h1>t probaility</h1>")
!
! cat ("<table border = \"1\">")
! cat ("<TR><TD>Method:</TD><TD>Variable value : <? getRK ("val"); ?></TD><TD>Degree of Freedom : <? getRK ("df"); ?></TD><TD><? getRK ("tail"); ?></TD></TR>")
! cat ("<TR><TD>", rk.temp.date,"</TD></TR>")
! cat ("<TR><TD></TD></TR>")
! cat ("<TR><TD>t probaility:</TD><TD> ", rk.temp," </TD></TR>")
! cat ("</table>")
<?
}
--- 13,18 ----
//produce the output
?>
! rk.header ("r probability", list ("Variable value", "<? getRK ("val"); ?>", "Degrees of Freedom", "<? getRK ("df"); ?>", "Tail", "<? getRK ("tail"); ?>"));
! cat ("<h3>t probability: ", rk.temp, "</h3>")
<?
}
***************
*** 28,32 ****
?>
rm (rk.temp)
- rm (rk.temp.date)
<?
}
--- 21,24 ----
Index: poisson_probabilities.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/poisson_probabilities.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** poisson_probabilities.php 12 Mar 2006 18:09:12 -0000 1.1
--- poisson_probabilities.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 6,10 ****
$vars = "substitute (" . str_replace ("\n", "), substitute (", trim (getRK_val ("x"))) . ")";
?>
! rk.temp.options <- list (doquantile=<? getRK ("quantile"); ?>)
rk.temp.results <- list ()
i=0; for (var in list (<? echo ($vars); ?>)) {
--- 6,10 ----
$vars = "substitute (" . str_replace ("\n", "), substitute (", trim (getRK_val ("x"))) . ")";
?>
! rk.temp.options <- list (doquantile=<? getRK ("samplequantile"); ?>)
rk.temp.results <- list ()
i=0; for (var in list (<? echo ($vars); ?>)) {
Index: normal_quantiles.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/normal_quantiles.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** normal_quantiles.php 12 Mar 2006 18:09:11 -0000 1.1
--- normal_quantiles.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 6,10 ****
?>
rk.temp = (qnorm (p = <? getRK ("p"); ?>, mean = <? getRK ("mean"); ?>, sd = <? getRK ("sd"); ?>, <? getRK ("tail"); ?>))
- rk.temp.date = date()
<?
}
--- 6,9 ----
***************
*** 14,25 ****
//produce the output
?>
! cat ("<h1>Normal quantile</h1>")
!
! cat ("<table border = \"1\">")
! cat ("<TR><TD>Method:</TD><TD>n = <? getRK ("p"); ?></TD><TD>mu = <? getRK ("mean"); ?></TD><TD>sigma = <?getRK ("sd"); ?></TD><TD><? getRK ("tail"); ?></TD></TR>")
! cat ("<TR><TD>", rk.temp.date,"</TD></TR>")
! cat ("<TR><TD></TD></TR>")
! cat ("<TR><TD>Normal quantile:</TD><TD> ", rk.temp," </TD></TR>")
! cat ("</table>")
<?
}
--- 13,18 ----
//produce the output
?>
! rk.header ("Normal quantile", list ("Probabilities [0,1]", "<? getRK ("p"); ?>", "mu", "<? getRK ("mean"); ?>", "sigma", "<? getRK ("sd"); ?>", "Tail", "<? getRK ("tail"); ?>"));
! cat ("<h3>Normal quantile: ", rk.temp, "</h3>")
<?
}
***************
*** 28,32 ****
?>
rm (rk.temp)
- rm (rk.temp.date)
<?
}
--- 21,24 ----
Index: plot_f_distribution.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/plot_f_distribution.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** plot_f_distribution.php 12 Mar 2006 18:09:11 -0000 1.1
--- plot_f_distribution.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 4,34 ****
function calculate () {
- ?>
- rk.temp.date = date()
- <?
}
function printout () {
! ?>cat ("<h1>Plot F density <? getRK ("function"); ?></h1>")
rk.graph.on ()
plot (<? getRK ("function"); ?> (seq(<? getRK ("min"); ?> ,<? getRK ("max"); ?>, length= <? getRK ("n"); ?>) , df1 = <? getRK ("df1"); ?>, df2 = <? getRK ("df2"); ?>))
rk.graph.off ()
- cat ("<table border = \"1\">")
- cat ("<TR><TD>Created</TD><TD> ", rk.temp.date," </TD></TR>")
- cat ("<TR><TD>Number of Observations</TD><TD><? getRK ("n"); ?></TD></TR>")
- cat ("<TR><TD>Minimum</TD><TD><? getRK ("min"); ?></TD></TR>")
- cat ("<TR><TD>Maximum</TD><TD><? getRK ("max"); ?></TD></TR>")
- cat ("<TR><TD>Numerator degrees of freedom</TD><TD><? getRK ("df1"); ?></TD></TR>")
- cat ("<TR><TD>Denominator degrees of freedom</TD><TD><? getRK ("df2"); ?></TD></TR>")
- cat ("<TR><TD>Function</TD><TD><? getRK ("function"); ?></TD></TR>")
- cat ("</table>")
<?
}
function cleanup () {
- ?>
- rm (rk.temp.date)
- rm (rk.temp.seq)
- <?
}
?>
--- 4,19 ----
function calculate () {
}
function printout () {
! ?>rk.header ("Plot density <? getRK ("function"); ?>", list ("Number of Observations", "<? getRK ("n"); ?>", "Minimum", "<? getRK ("min"); ?>", "Maximum", "<? getRK ("max"); ?>", "Numerator degrees of freedom", "<? getRK ("df1"); ?>", "Denominator degrees of freedom", "<? getRK ("df2"); ?>", "Function", "<? getRK ("function"); ?>"));
!
rk.graph.on ()
plot (<? getRK ("function"); ?> (seq(<? getRK ("min"); ?> ,<? getRK ("max"); ?>, length= <? getRK ("n"); ?>) , df1 = <? getRK ("df1"); ?>, df2 = <? getRK ("df2"); ?>))
rk.graph.off ()
<?
}
function cleanup () {
}
?>
Index: f_probabilities.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/f_probabilities.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** f_probabilities.php 12 Mar 2006 18:09:11 -0000 1.1
--- f_probabilities.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 5,10 ****
function calculate () {
?>
! rk.temp = (pf (q = <? getRK ("val"); ?>, df1 = <? getRK ("df1"); ?>, df2 = <? getRK ("df2"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
! rk.temp.date = date()
<?
}
--- 5,9 ----
function calculate () {
?>
! rk.temp <- (pf (q = <? getRK ("val"); ?>, df1 = <? getRK ("df1"); ?>, df2 = <? getRK ("df2"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
<?
}
***************
*** 14,25 ****
//produce the output
?>
! cat ("<h1>F probability</h1>")
!
! cat ("<table border = \"1\">")
! cat ("<TR><TD>Method:</TD><TD>Variable value = <? getRK ("val"); ?></TD><TD>Numerator degree of freedom = <? getRK ("df1"); ?></TD><TD>Denominator degree of freedom = <? getRK ("df2"); ?></TD><TD> non-centrality parameter = <? getRK ("ncp"); ?></TD><TD><? getRK ("tail"); ?></TD></TR>")
! cat ("<TR><TD>", rk.temp.date,"</TD></TR>")
! cat ("<TR><TD></TD></TR>")
! cat ("<TR><TD>F probability:</TD><TD> ", rk.temp," </TD></TR>")
! cat ("</table>")
<?
}
--- 13,18 ----
//produce the output
?>
! rk.header ("F probability", list ("Variable value", "<? getRK ("val"); ?>", "Numerator degrees of freedom", "<? getRK ("df1"); ?>", "Denominator degrees of freedom", "<? getRK ("df2"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>"));
! cat ("<h3>F probability: ", rk.temp, "</h3>")
<?
}
***************
*** 28,32 ****
?>
rm (rk.temp)
- rm (rk.temp.date)
<?
}
--- 21,24 ----
Index: normal_probabilities.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/normal_probabilities.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** normal_probabilities.php 12 Mar 2006 18:09:11 -0000 1.1
--- normal_probabilities.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 6,10 ****
?>
rk.temp = (pnorm (q = <? getRK ("val"); ?>, mean = <? getRK ("mean"); ?>, sd = <? getRK ("sd"); ?>, <? getRK ("tail"); ?>))
- rk.temp.date = date()
<?
}
--- 6,9 ----
***************
*** 14,25 ****
//produce the output
?>
! cat ("<h1>Normal probabilities</h1>")
!
! cat ("<table border = \"1\">")
! cat ("<TR><TD>Method:</TD><TD>Variable value(s) = <? getRK ("val"); ?></TD><TD>mu = <? getRK ("mean"); ?></TD><TD>sigma = <?getRK ("sd"); ?></TD><TD><? getRK ("tail"); ?></TD></TR>")
! cat ("<TR><TD>", rk.temp.date,"</TD></TR>")
! cat ("<TR><TD></TD></TR>")
! cat ("<TR><TD>Normal quantile:</TD><TD> ", rk.temp," </TD></TR>")
! cat ("</table>")
<?
}
--- 13,18 ----
//produce the output
?>
! rk.header ("Normal probabilities", list ("Variable value(s)", "<? getRK ("val"); ?>", "mu", "<? getRK ("mean"); ?>", "sigma", "<? getRK ("sd"); ?>", "Tail", "<? getRK ("tail"); ?>"));
! cat ("<h3>Normal quantile: ", rk.temp, "</h3>")
<?
}
***************
*** 28,32 ****
?>
rm (rk.temp)
- rm (rk.temp.date)
<?
}
--- 21,24 ----
Index: plot_poisson_distribution.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/plot_poisson_distribution.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** plot_poisson_distribution.php 12 Mar 2006 18:09:12 -0000 1.1
--- plot_poisson_distribution.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 4,32 ****
function calculate () {
- ?>
- rk.temp.date = date()
- <?
}
function printout () {
! ?>cat ("<h1>Plot density <? getRK ("function"); ?></h1>")
rk.graph.on ()
plot (<? getRK ("function"); ?> (<? getRK ("min"); ?> : <? getRK ("max"); ?>) , lambda = <? getRK ("mean"); ?>)
rk.graph.off ()
- cat ("<table border = \"1\">")
- cat ("<TR><TD>Created</TD><TD> ", rk.temp.date," </TD></TR>")
- cat ("<TR><TD>Minimum</TD><TD><? getRK ("min"); ?></TD></TR>")
- cat ("<TR><TD>Maximum</TD><TD><? getRK ("max"); ?></TD></TR>")
- cat ("<TR><TD>Mean</TD><TD><? getRK ("mean"); ?></TD></TR>")
- cat ("<TR><TD>Function</TD><TD><? getRK ("function"); ?></TD></TR>")
- cat ("</table>")
<?
}
function cleanup () {
- ?>
- rm (rk.temp.date)
- rm (rk.temp.seq)
- <?
}
?>
--- 4,19 ----
function calculate () {
}
function printout () {
! ?>rk.header ("Plot density <? getRK ("function"); ?>", list ("Minimum", "<? getRK ("min"); ?>", "Maximum", "<? getRK ("max"); ?>", "Mean", "<? getRK ("mean"); ?>", "Function", "<? getRK ("function"); ?>"));
!
rk.graph.on ()
plot (<? getRK ("function"); ?> (<? getRK ("min"); ?> : <? getRK ("max"); ?>) , lambda = <? getRK ("mean"); ?>)
rk.graph.off ()
<?
}
function cleanup () {
}
?>
Index: plot_chi_squared_distribution.xml
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/plot_chi_squared_distribution.xml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** plot_chi_squared_distribution.xml 12 Mar 2006 18:09:11 -0000 1.1
--- plot_chi_squared_distribution.xml 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 9,22 ****
<column>
<row>
! <spinbox max_precision="" default_precision="4" type="real" min="-10000000" id="n" initial="100" max="10000000" label="Number of Observations" />
</row>
<row>
<frame label="Range" >
! <spinbox max_precision="" default_precision="4" type="real" min="-10000000" id="min" initial="0.299" max="10000000" label="Minumum" />
! <spinbox max_precision="" default_precision="4" type="real" min="-10000000" id="max" initial="24.103" max="10000000" label="Maximum" />
</frame>
</row>
<row>
! <spinbox max_precision="1" default_precision="1" type="real" min="-10000000" id="df" initial="0" max="10000000" label="Degree of freedom" />
</row>
</column>
--- 9,22 ----
<column>
<row>
! <spinbox default_precision="4" type="real" id="n" initial="100" label="Number of Observations" />
</row>
<row>
<frame label="Range" >
! <spinbox default_precision="4" type="real" id="min" initial="0.299" label="Minimum" />
! <spinbox default_precision="4" type="real" id="max" initial="24.103" label="Maximum" />
</frame>
</row>
<row>
! <spinbox max_precision="1" default_precision="1" type="real" id="df" initial="0.1" label="Degrees of freedom" />
</row>
</column>
***************
*** 26,29 ****
--- 26,30 ----
<option value="pchisq" label="Plot distribution" />
</radio>
+ <stretch/>
</column>
</row>
Index: normal_quantiles.xml
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/normal_quantiles.xml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** normal_quantiles.xml 12 Mar 2006 18:09:11 -0000 1.1
--- normal_quantiles.xml 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 9,15 ****
<row>
<column>
! <spinbox max_precision="4" default_precision="4" type="real" initial="0.95" id="p" min="0" max="1" label="probability [0,1]" depend="probs" />
! <spinbox max_precision="2" default_precision="2" type="real" initial="0" id="mean" min="-10000000" max="10000000" label="mu (mean)" depend="probs" />
! <spinbox max_precision="2" default_precision="2" type="real" initial="1" id="sd" min="-10000000" max="10000000" label="sigma (standard deviation)" depend="probs" />
</column>
<column>
--- 9,15 ----
<row>
<column>
! <spinbox max_precision="4" default_precision="4" type="real" initial="0.95" id="p" min="0" max="1" label="probability [0,1]" />
! <spinbox max_precision="2" default_precision="2" type="real" initial="0" id="mean" label="mu (mean)" />
! <spinbox max_precision="2" default_precision="2" type="real" initial="1" id="sd" label="sigma (standard deviation)" />
</column>
<column>
Index: f_quantiles.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/f_quantiles.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** f_quantiles.php 12 Mar 2006 18:09:11 -0000 1.1
--- f_quantiles.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 6,10 ****
?>
rk.temp = (qf (p = <? getRK ("p"); ?>, df1 = <? getRK ("df1"); ?>, df2 = <? getRK ("df2"); ?>, <? getRK ("tail"); ?>))
- rk.temp.date = date()
<?
}
--- 6,9 ----
***************
*** 14,25 ****
//produce the output
?>
! cat ("<h1>F quantile</h1>")
!
! cat ("<table border = \"1\">")
! cat ("<TR><TD>Method:</TD><TD>Probabilities [0,1] : <? getRK ("p"); ?></TD><TD>Numerator degree of freedom : <? getRK ("df1"); ?></TD><TD>Denominator degree of freedom : <? getRK ("df2"); ?></TD><TD><? getRK ("tail"); ?></TD></TR>")
! cat ("<TR><TD>", rk.temp.date,"</TD></TR>")
! cat ("<TR><TD></TD></TR>")
! cat ("<TR><TD>F quantile:</TD><TD> ", rk.temp," </TD></TR>")
! cat ("</table>")
<?
}
--- 13,18 ----
//produce the output
?>
! rk.header ("F quantile", list ("Probabilities [0,1]", "<? getRK ("p"); ?>", "Numerator degrees of freedom", "<? getRK ("df1"); ?>", "Denominator degrees of freedom", "<? getRK ("df2"); ?>", "Tail", "<? getRK ("tail"); ?>"));
! cat ("<h3>F quantile: ", rk.temp, "</h3>")
<?
}
***************
*** 28,32 ****
?>
rm (rk.temp)
- rm (rk.temp.date)
<?
}
--- 21,24 ----
Index: plot_f_distribution.xml
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/plot_f_distribution.xml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** plot_f_distribution.xml 23 Mar 2006 15:09:51 -0000 1.2
--- plot_f_distribution.xml 5 Apr 2006 10:10:03 -0000 1.3
***************
*** 9,23 ****
<column>
<row>
! <spinbox max_precision="2" default_precision="2" type="real" min="-10000000" id="n" initial="100" max="10000000" label="Number of Observations" />
</row>
<row>
<frame label="Range" >
! <spinbox max_precision="6" default_precision="2" type="real" min="0.001" id="min" initial="0.001" max="10000000" label="Minumum" />
! <spinbox max_precision="6" default_precision="2" type="real" min="0.001" id="max" initial="1999" max="10000000" label="Maximum" />
</frame>
</row>
<row>
! <spinbox type="integer" min="1" id="df1" initial="1" max="10000000" label="Numerator degrees of freedom" />
! <spinbox type="integer" min="1" id="df2" initial="1" max="10000000" label="Denominator degrees of freedom" />
</row>
</column>
--- 9,23 ----
<column>
<row>
! <spinbox max_precision="2" default_precision="2" type="real" id="n" initial="100" label="Number of Observations" />
</row>
<row>
<frame label="Range" >
! <spinbox max_precision="6" default_precision="2" type="real" min="0.001" id="min" initial="0.001" label="Minimum" />
! <spinbox max_precision="6" default_precision="2" type="real" min="0.001" id="max" initial="1999" label="Maximum" />
</frame>
</row>
<row>
! <spinbox type="integer" min="1" id="df1" initial="1" label="Numerator degrees of freedom" />
! <spinbox type="integer" min="1" id="df2" initial="1" label="Denominator degrees of freedom" />
</row>
</column>
***************
*** 27,30 ****
--- 27,31 ----
<option value="pf" label="Plot distribution" />
</radio>
+ <stretch/>
</column>
</row>
Index: chi_squared_quantiles.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/chi_squared_quantiles.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** chi_squared_quantiles.php 12 Mar 2006 18:09:11 -0000 1.1
--- chi_squared_quantiles.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 6,10 ****
?>
rk.temp = (qchisq (p = <? getRK ("p"); ?>, df = <? getRK ("df"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
- rk.temp.date = date()
<?
}
--- 6,9 ----
***************
*** 14,25 ****
//produce the output
?>
! cat ("<h1>Chi-squared quantile</h1>")
!
! cat ("<table border = \"1\">")
! cat ("<TR><TD>Method:</TD><TD>Probabilities [0,1] : <? getRK ("p"); ?></TD><TD>Degree of Freedom : <? getRK ("df"); ?></TD><TD> non-centrality parameter = <? getRK ("ncp"); ?></TD><TD><? getRK ("tail"); ?></TD></TR>")
! cat ("<TR><TD>", rk.temp.date,"</TD></TR>")
! cat ("<TR><TD></TD></TR>")
! cat ("<TR><TD>Chi-squared quantile:</TD><TD> ", rk.temp," </TD></TR>")
! cat ("</table>")
<?
}
--- 13,18 ----
//produce the output
?>
! rk.header ("Chi-squared quantile", list ("Probabilities [0,1]", "<? getRK ("p"); ?>", "Degrees of freedom", "<? getRK ("df"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>"));
! cat ("<h3>Chi-squared quantile: ", rk.temp, "</h3>")
<?
}
***************
*** 28,32 ****
?>
rm (rk.temp)
- rm (rk.temp.date)
<?
}
--- 21,24 ----
Index: binomial_quantiles.xml
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/binomial_quantiles.xml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** binomial_quantiles.xml 12 Mar 2006 18:09:11 -0000 1.1
--- binomial_quantiles.xml 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 12,16 ****
<spinbox max_precision="2" default_precision="2" type="real" initial="0.95" id="p" min="0" max="1" label="Probability"/>
<spinbox max_precision="2" default_precision="2" type="real" initial="0" id="size" min="0" max="10" label="Binomial trials"/>
! <spinbox max_precision="2" default_precision="2" type="real" initial="0.5" id="prob" min="0" max="1" label="Probability of success"/>
</column>
<column>
--- 12,16 ----
<spinbox max_precision="2" default_precision="2" type="real" initial="0.95" id="p" min="0" max="1" label="Probability"/>
<spinbox max_precision="2" default_precision="2" type="real" initial="0" id="size" min="0" max="10" label="Binomial trials"/>
! <spinbox max_precision="2" default_precision="2" type="real" initial="0.5" id="prob" min="0" max="1" label="Probability of success"/>
</column>
<column>
***************
*** 19,22 ****
--- 19,23 ----
<option value="upper.tail=TRUE" label="upper tail" />
</radio>
+ <stretch/>
</column>
</row>
Index: binomial_tail_probabilities.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/binomial_tail_probabilities.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** binomial_tail_probabilities.php 12 Mar 2006 18:09:11 -0000 1.1
--- binomial_tail_probabilities.php 5 Apr 2006 10:10:03 -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"); ?>", "Tail", "<? getRK ("tail"); ?>"));
! cat ("<h3>t probability: ", rk.temp, "</h3>")
<?
}
***************
*** 28,32 ****
?>
rm (rk.temp)
- rm (rk.temp.date)
<?
}
--- 21,24 ----
Index: plot_binomial_distribution.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/plot_binomial_distribution.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** plot_binomial_distribution.php 12 Mar 2006 18:09:11 -0000 1.1
--- plot_binomial_distribution.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 4,34 ****
function calculate () {
- ?>
- rk.temp.date = date()
- <?
}
function printout () {
! ?>cat ("<h1>Plot density <? getRK ("function"); ?></h1>")
rk.graph.on ()
plot (<? getRK ("function"); ?> (seq(<? getRK ("min"); ?> ,<? getRK ("max"); ?>, length= <? getRK ("n"); ?>) , mean = <? getRK ("mean"); ?>, sd = <? getRK ("sd"); ?>))
rk.graph.off ()
- cat ("<table border = \"1\">")
- cat ("<TR><TD>Created</TD><TD> ", rk.temp.date," </TD></TR>")
- cat ("<TR><TD>Number of Observations</TD><TD><? getRK ("n"); ?></TD></TR>")
- cat ("<TR><TD>Minimum</TD><TD><? getRK ("min"); ?></TD></TR>")
- cat ("<TR><TD>Maximum</TD><TD><? getRK ("max"); ?></TD></TR>")
- cat ("<TR><TD>Mean</TD><TD><? getRK ("mean"); ?></TD></TR>")
- cat ("<TR><TD>Standard Deviation</TD><TD><? getRK ("sd"); ?></TD></TR>")
- cat ("<TR><TD>Function</TD><TD><? getRK ("function"); ?></TD></TR>")
- cat ("</table>")
<?
}
function cleanup () {
- ?>
- rm (rk.temp.date)
- rm (rk.temp.seq)
- <?
}
?>
--- 4,19 ----
function calculate () {
}
function printout () {
! ?>rk.header ("Plot density <? getRK ("function"); ?>", list ("Number of Observations", "<? getRK ("n"); ?>", "Minimum", "<? getRK ("min"); ?>", "Maximum", "<? getRK ("max"); ?>", "Mean", "<? getRK ("mean"); ?>", "Standard Deviation", "<? getRK ("sd"); ?>", "Function", "<? getRK ("function"); ?>"));
!
rk.graph.on ()
plot (<? getRK ("function"); ?> (seq(<? getRK ("min"); ?> ,<? getRK ("max"); ?>, length= <? getRK ("n"); ?>) , mean = <? getRK ("mean"); ?>, sd = <? getRK ("sd"); ?>))
rk.graph.off ()
<?
}
function cleanup () {
}
?>
Index: poisson_probabilities.xml
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/poisson_probabilities.xml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** poisson_probabilities.xml 12 Mar 2006 18:09:12 -0000 1.1
--- poisson_probabilities.xml 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 15,19 ****
<dialog label="Descriptive Statistics" >
<tabbook>
! <tab label="Vairabel(s)" >
<row>
<column>
--- 15,19 ----
<dialog label="Descriptive Statistics" >
<tabbook>
! <tab label="Vairable(s)" >
<row>
<column>
***************
*** 32,55 ****
<checkbox value_unchecked="FALSE" checked="true" value="TRUE" id="narm" label="Remove Missing Values" />
</column>
! <spinbox default_precission="10" type="integer" id="" min="1" initial="5" max="10" label="Precision" />
</row>
</frame>
! <radio value_unchecked="0" checked="TRUE" value="1" id="samplequantile" label="Sample Quantile Types" >
! <option checked="false" value="1" id="type1" label="Inverse of empirical distribution function" />
! <option checked="false" value="2" id="type2" label="Similar to type 1 but with averaging at discontinuities" />
! <option checked="false" value="3" id="type3" label="SAS definition: nearest even order statistic" />
! <option checked="false" value="4" id="type4" label="p(k) = k / n (linear interpolation of the empirical cdf)" />
! <option checked="false" value="5" id="type5" label="p(k) = (k - 0.5) / n (piecewise linear function where the knots are the values midway through the steps of the empirical cdf)" />
! <option checked="false" value="6" id="type6" label="p(k) = k / (n + 1). Thus p(k) = E[F(x[k])] (used by Minitab and by SPSS)" />
! <option checked="false" value="7" id="type7" label="p(k) = (k - 1) / (n - 1). In this case, p(k) = mode[F(x[k])] (used by S)" />
! <option checked="true" value="8" id="type8" label="p(k) = (k - 1/3) / (n + 1/3). Then p(k) =~ median[F(x[k])] (resulting quantile estimates are approximately median-unbiased regardless of the distribution of x)" />
! <option checked="false" value="9" id="type9" label="p(k) = (k - 3/8) / (n + 1/4) (resulting quantile estimates are approximately unbiased if x is normally distributed" />
</radio>
</tab>
<tab label="Probabilities" >
<frame label="numeric vector of probabilities with values in [0,1]" >
! <spinbox max_precision="2" default_precision="2" type="real" min="0" id="probs1" initial="0" max="1" depend="probs" label="Lower" />
! <spinbox max_precision="2" default_precision="2" type="real" min="0" id="probs2" initial="1" max="1" depend="probs" label="Mid" />
! <spinbox max_precision="2" default_precision="2" type="real" min="0" id="probs3" initial="0.25" max="1" depend="probs" label="Upper" />
</frame>
</tab>
--- 32,55 ----
<checkbox value_unchecked="FALSE" checked="true" value="TRUE" id="narm" label="Remove Missing Values" />
</column>
! <!-- <spinbox type="integer" id="precision" min="1" initial="5" max="10" label="Precision" /> -->
</row>
</frame>
! <radio id="samplequantile" label="Sample Quantile Types" >
! <option value="1" label="Inverse of empirical distribution function" />
! <option value="2" label="Similar to type 1 but with averaging at discontinuities" />
! <option value="3" label="SAS definition: nearest even order statistic" />
! <option value="4" label="p(k) = k / n (linear interpolation of the empirical cdf)" />
! <option value="5" label="p(k) = (k - 0.5) / n (piecewise linear function where the knots are the values midway through the steps of the empirical cdf)" />
! <option value="6" label="p(k) = k / (n + 1). Thus p(k) = E[F(x[k])] (used by Minitab and by SPSS)" />
! <option value="7" label="p(k) = (k - 1) / (n - 1). In this case, p(k) = mode[F(x[k])] (used by S)" />
! <option checked="true" value="8" label="p(k) = (k - 1/3) / (n + 1/3). Then p(k) =~ median[F(x[k])] (resulting quantile estimates are approximately median-unbiased regardless of the distribution of x)" />
! <option value="9" label="p(k) = (k - 3/8) / (n + 1/4) (resulting quantile estimates are approximately unbiased if x is normally distributed" />
</radio>
</tab>
<tab label="Probabilities" >
<frame label="numeric vector of probabilities with values in [0,1]" >
! <spinbox max_precision="2" default_precision="2" type="real" min="0" id="probs1" initial="0" max="1" label="Lower" />
! <spinbox max_precision="2" default_precision="2" type="real" min="0" id="probs2" initial="1" max="1" label="Mid" />
! <spinbox max_precision="2" default_precision="2" type="real" min="0" id="probs3" initial="0.25" max="1" label="Upper" />
</frame>
</tab>
Index: plot_chi_squared_distribution.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/plot_chi_squared_distribution.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** plot_chi_squared_distribution.php 12 Mar 2006 18:09:11 -0000 1.1
--- plot_chi_squared_distribution.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 4,33 ****
function calculate () {
- ?>
- rk.temp.date = date()
- <?
}
function printout () {
! ?>cat ("<h1>Plot density <? getRK ("function"); ?></h1>")
rk.graph.on ()
plot (<? getRK ("function"); ?> (seq(<? getRK ("min"); ?> ,<? getRK ("max"); ?>, length= <? getRK ("n"); ?>) , df = <? getRK ("df"); ?>), xlab=expression(chi^2))
rk.graph.off ()
- cat ("<table border = \"1\">")
- cat ("<TR><TD>Created</TD><TD> ", rk.temp.date," </TD></TR>")
- cat ("<TR><TD>Number of Observations</TD><TD><? getRK ("n"); ?></TD></TR>")
- cat ("<TR><TD>Minimum</TD><TD><? getRK ("min"); ?></TD></TR>")
- cat ("<TR><TD>Maximum</TD><TD><? getRK ("max"); ?></TD></TR>")
- cat ("<TR><TD>Degree of freedom</TD><TD><? getRK ("df"); ?></TD></TR>")
- cat ("<TR><TD>Function</TD><TD><? getRK ("function"); ?></TD></TR>")
- cat ("</table>")
<?
}
function cleanup () {
- ?>
- rm (rk.temp.date)
- rm (rk.temp.seq)
- <?
}
?>
--- 4,19 ----
function calculate () {
}
function printout () {
! ?>rk.header ("Plot density <? getRK ("function"); ?>", list ("Number of Observations", "<? getRK ("n"); ?>", "Minimum", "<? getRK ("min"); ?>", "Maximum", "<? getRK ("max"); ?>", "Degrees of freedom", "<? getRK ("df"); ?>", "Function", "<? getRK ("function"); ?>"));
!
rk.graph.on ()
plot (<? getRK ("function"); ?> (seq(<? getRK ("min"); ?> ,<? getRK ("max"); ?>, length= <? getRK ("n"); ?>) , df = <? getRK ("df"); ?>), xlab=expression(chi^2))
rk.graph.off ()
<?
}
function cleanup () {
}
?>
Index: plot_binomial_distribution.xml
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/plot_binomial_distribution.xml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** plot_binomial_distribution.xml 12 Mar 2006 18:09:11 -0000 1.1
--- plot_binomial_distribution.xml 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 9,23 ****
<column>
<row>
! <spinbox max_precision="2" default_precision="2" type="real" min="-10000000" id="n" initial="100" max="10000000" label="Number of Observations" />
</row>
<row>
<frame label="Range" >
! <spinbox max_precision="2" default_precision="2" type="real" min="-10000000" id="min" initial="-3.291" max="10000000" label="Minumum" />
! <spinbox max_precision="2" default_precision="2" type="real" min="-10000000" id="max" initial="3.291" max="10000000" label="Maximum" />
</frame>
</row>
<row>
! <spinbox max_precision="2" default_precision="2" type="real" min="-10000000" id="mean" initial="0" max="10000000" label="mu (mean)" />
! <spinbox max_precision="2" default_precision="2" type="real" min="-10000000" id="sd" initial="1" max="10000000" label="sigma (standard deviation)" label="standard deviation" />
</row>
</column>
--- 9,23 ----
<column>
<row>
! <spinbox max_precision="2" default_precision="2" type="real" id="n" initial="100" label="Number of Observations" />
</row>
<row>
<frame label="Range" >
! <spinbox max_precision="2" default_precision="2" type="real" id="min" initial="-3.291" label="Minimum" />
! <spinbox max_precision="2" default_precision="2" type="real" id="max" initial="3.291" label="Maximum" />
</frame>
</row>
<row>
! <spinbox max_precision="2" default_precision="2" type="real" id="mean" initial="0" label="mu (mean)" />
! <spinbox max_precision="2" default_precision="2" type="real" id="sd" initial="1" label="sigma (standard deviation)" label="standard deviation" />
</row>
</column>
***************
*** 27,30 ****
--- 27,31 ----
<option value="pnorm" label="Plot distribution" />
</radio>
+ <stretch/>
</column>
</row>
Index: t_quantiles.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/t_quantiles.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** t_quantiles.php 12 Mar 2006 18:09:12 -0000 1.1
--- t_quantiles.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 6,10 ****
?>
rk.temp = (qt (p = <? getRK ("p"); ?>, df = <? getRK ("df"); ?>, <? getRK ("tail"); ?>))
- rk.temp.date = date()
<?
}
--- 6,9 ----
***************
*** 14,25 ****
//produce the output
?>
! cat ("<h1>t quantile</h1>")
!
! cat ("<table border = \"1\">")
! cat ("<TR><TD>Method:</TD><TD>Probabilities [0,1] : <? getRK ("p"); ?></TD><TD>Degree of Freedom : <? getRK ("df"); ?></TD><TD><? getRK ("tail"); ?></TD></TR>")
! cat ("<TR><TD>", rk.temp.date,"</TD></TR>")
! cat ("<TR><TD></TD></TR>")
! cat ("<TR><TD>t quantile:</TD><TD> ", rk.temp," </TD></TR>")
! cat ("</table>")
<?
}
--- 13,18 ----
//produce the output
?>
! rk.header ("t quantile", list ("Probabilities [0,1]", "<? getRK ("p"); ?>", "Degrees of freedom", "<? getRK ("df"); ?>", "Tail", "<? getRK ("tail"); ?>"));
! cat ("<h3>t quantile: ", rk.temp, "</h3>")
<?
}
***************
*** 28,32 ****
?>
rm (rk.temp)
- rm (rk.temp.date)
<?
}
--- 21,24 ----
Index: binomial_probabilities.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/binomial_probabilities.php,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** binomial_probabilities.php 29 Mar 2006 17:27:56 -0000 1.2
--- binomial_probabilities.php 5 Apr 2006 10:10:03 -0000 1.3
***************
*** 5,9 ****
function calculate () {
?>
! rk.temp = (pbinom (q = <? getRK ("q"); ?>, size = <? getRK ("size"); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>))
<?
}
--- 5,9 ----
function calculate () {
?>
! rk.temp <- (pbinom (q = <? getRK ("q"); ?>, size = <? getRK ("size"); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>))
<?
}
***************
*** 13,17 ****
//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>")
<?
--- 13,17 ----
//produce the output
?>
! rk.header ("Binomial tail probability", list ("Variable value", "<? getRK ("q"); ?>", "Binomial trials", "<? getRK ("size"); ?>", "Probability of success", "<? getRK ("prob"); ?>", "Tail", "<? getRK ("tail"); ?>"));
cat ("<h3>Binomial tail probability: ", rk.temp, "</h3>")
<?
Index: plot_normal_distribution.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/plot_normal_distribution.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** plot_normal_distribution.php 12 Mar 2006 18:09:11 -0000 1.1
--- plot_normal_distribution.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 4,34 ****
function calculate () {
- ?>
- rk.temp.date = date()
- <?
}
function printout () {
! ?>cat ("<h1>Plot density <? getRK ("function"); ?></h1>")
rk.graph.on ()
plot (<? getRK ("function"); ?> (seq(<? getRK ("min"); ?> ,<? getRK ("max"); ?>, length= <? getRK ("n"); ?>) , mean = <? getRK ("mean"); ?>, sd = <? getRK ("sd"); ?>))
rk.graph.off ()
- cat ("<table border = \"1\">")
- cat ("<TR><TD>Created</TD><TD> ", rk.temp.date," </TD></TR>")
- cat ("<TR><TD>Number of Observations</TD><TD><? getRK ("n"); ?></TD></TR>")
- cat ("<TR><TD>Minimum</TD><TD><? getRK ("min"); ?></TD></TR>")
- cat ("<TR><TD>Maximum</TD><TD><? getRK ("max"); ?></TD></TR>")
- cat ("<TR><TD>Mean</TD><TD><? getRK ("mean"); ?></TD></TR>")
- cat ("<TR><TD>Standard Deviation</TD><TD><? getRK ("sd"); ?></TD></TR>")
- cat ("<TR><TD>Function</TD><TD><? getRK ("function"); ?></TD></TR>")
- cat ("</table>")
<?
}
function cleanup () {
- ?>
- rm (rk.temp.date)
- rm (rk.temp.seq)
- <?
}
?>
--- 4,19 ----
function calculate () {
}
function printout () {
! ?>rk.header ("Plot density <? getRK ("function"); ?>", list ("Number of Observations", "<? getRK ("n"); ?>", "Minimum", "<? getRK ("min"); ?>", "Maximum", "<? getRK ("max"); ?>", "Mean", "<? getRK ("mean"); ?>", "Standard Deviation", "<? getRK ("sd"); ?>", "Function", "<? getRK ("function"); ?>"));
!
rk.graph.on ()
plot (<? getRK ("function"); ?> (seq(<? getRK ("min"); ?> ,<? getRK ("max"); ?>, length= <? getRK ("n"); ?>) , mean = <? getRK ("mean"); ?>, sd = <? getRK ("sd"); ?>))
rk.graph.off ()
<?
}
function cleanup () {
}
?>
Index: plot_poisson_distribution.xml
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/plot_poisson_distribution.xml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** plot_poisson_distribution.xml 12 Mar 2006 18:09:12 -0000 1.1
--- plot_poisson_distribution.xml 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 10,19 ****
<row>
<frame label="Range" >
! <spinbox max_precision="" default_precision="" type="real" min="0" id="min" initial="0" max="10000000" label="Minumum" />
! <spinbox max_precision="" default_precision="" type="real" min="0" id="max" initial="12" max="10000000" label="Maximum" />
</frame>
</row>
<row>
! <spinbox max_precision="" default_precision="" type="real" min="-10000000" id="mean" initial="0" max="10000000" label="mean" />
</row>
</column>
--- 10,19 ----
<row>
<frame label="Range" >
! <spinbox type="real" min="0" id="min" initial="0" label="Minimum" />
! <spinbox type="real" min="0" id="max" initial="12" label="Maximum" />
</frame>
</row>
<row>
! <spinbox type="real" id="mean" initial="0" label="mean" />
</row>
</column>
***************
*** 23,26 ****
--- 23,27 ----
<option value="ppois" label="Plot distribution" />
</radio>
+ <stretch/>
</column>
</row>
Index: plot_t_distribution.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/plot_t_distribution.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** plot_t_distribution.php 12 Mar 2006 18:09:12 -0000 1.1
--- plot_t_distribution.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 4,34 ****
function calculate () {
- ?>
- rk.temp.date = date()
- <?
}
function printout () {
! ?>cat ("<h1>Plot density <? getRK ("function"); ?></h1>")
rk.graph.on ()
! plot (<? getRK ("function"); ?> (seq(<? getRK ("min"); ?> ,<? getRK ("max"); ?>, length= <? getRK ("n"); ?>) , mean = <? getRK ("mean"); ?>, sd = <? getRK ("sd"); ?>))
rk.graph.off ()
- cat ("<table border = \"1\">")
- cat ("<TR><TD>Created</TD><TD> ", rk.temp.date," </TD></TR>")
- cat ("<TR><TD>Number of Observations</TD><TD><? getRK ("n"); ?></TD></TR>")
- cat ("<TR><TD>Minimum</TD><TD><? getRK ("min"); ?></TD></TR>")
- cat ("<TR><TD>Maximum</TD><TD><? getRK ("max"); ?></TD></TR>")
- cat ("<TR><TD>Mean</TD><TD><? getRK ("mean"); ?></TD></TR>")
- cat ("<TR><TD>Standard Deviation</TD><TD><? getRK ("sd"); ?></TD></TR>")
- cat ("<TR><TD>Function</TD><TD><? getRK ("function"); ?></TD></TR>")
- cat ("</table>")
<?
}
function cleanup () {
- ?>
- rm (rk.temp.date)
- rm (rk.temp.seq)
- <?
}
?>
--- 4,19 ----
function calculate () {
}
function printout () {
! ?>rk.header ("Plot density <? getRK ("function"); ?>", list ("Number of Observations", "<? getRK ("n"); ?>", "Minimum", "<? getRK ("min"); ?>", "Maximum", "<? getRK ("max"); ?>", "Degrees of freedom", "<? getRK ("df"); ?>", "Function", "<? getRK ("function"); ?>"));
!
rk.graph.on ()
! plot (<? getRK ("function"); ?> (seq(<? getRK ("min"); ?> ,<? getRK ("max"); ?>, length= <? getRK ("n"); ?>) , df = <? getRK ("df"); ?>))
rk.graph.off ()
<?
}
function cleanup () {
}
?>
Index: plot_normal_distribution.xml
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/plot_normal_distribution.xml,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** plot_normal_distribution.xml 12 Mar 2006 18:09:11 -0000 1.1
--- plot_normal_distribution.xml 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 9,23 ****
<column>
<row>
! <spinbox max_precision="2" default_precision="2" type="real" min="-10000000" id="n" initial="100" max="10000000" label="Number of Observations" />
</row>
<row>
<frame label="Range" >
! <spinbox max_precision="2" default_precision="2" type="real" min="-10000000" id="min" initial="-3.291" max="10000000" label="Minumum" />
! <spinbox max_precision="2" default_precision="2" type="real" min="-10000000" id="max" initial="3.291" max="10000000" label="Maximum" />
</frame>
</row>
<row>
! <spinbox max_precision="2" default_precision="2" type="real" min="-10000000" id="mean" initial="0" max="10000000" label="mu (mean)" />
! <spinbox max_precision="2" default_precision="2" type="real" min="-10000000" id="sd" initial="1" max="10000000" label="sigma (standard deviation)" label="standard deviation" />
</row>
</column>
--- 9,23 ----
<column>
<row>
! <spinbox max_precision="2" default_precision="2" type="real" id="n" initial="100" label="Number of Observations" />
</row>
<row>
<frame label="Range" >
! <spinbox max_precision="2" default_precision="2" type="real" id="min" initial="-3.291" label="Minimum" />
! <spinbox max_precision="2" default_precision="2" type="real" id="max" initial="3.291" label="Maximum" />
</frame>
</row>
<row>
! <spinbox max_precision="2" default_precision="2" type="real" id="mean" initial="0" label="mu (mean)" />
! <spinbox max_precision="2" default_precision="2" type="real" id="sd" initial="1" label="sigma (standard deviation)" label="standard deviation" />
</row>
</column>
***************
*** 27,30 ****
--- 27,31 ----
<option value="pnorm" label="Plot distribution" />
</radio>
+ <stretch/>
</column>
</row>
Index: binomial_quantiles.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/binomial_quantiles.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** binomial_quantiles.php 12 Mar 2006 18:09:11 -0000 1.1
--- binomial_quantiles.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 6,10 ****
?>
rk.temp = (qbinom (p = <? getRK ("p"); ?>, size = <? getRK ("size"); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>))
- rk.temp.date = date()
<?
}
--- 6,9 ----
***************
*** 14,25 ****
//produce the output
?>
! cat ("<h1>Binomial quantile</h1>")
!
! cat ("<table border = \"1\">")
! cat ("<TR><TD>Method:</TD><TD>Probabilities [0,1] = <? getRK ("p"); ?></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 quantile:</TD><TD> ", rk.temp," </TD></TR>")
! cat ("</table>")
<?
}
--- 13,18 ----
//produce the output
?>
! rk.header ("Binomial quantile", list ("Probabilities [0,1]", "<? getRK ("p"); ?>", "Binomial trials", "<? getRK ("size"); ?>", "Probability of success", "<? getRK ("prob"); ?>", "Tail", "<? getRK ("tail"); ?>"));
! cat ("<h3>Binomial quantile: ", rk.temp, "</h3>")
<?
}
***************
*** 28,32 ****
?>
rm (rk.temp)
- rm (rk.temp.date)
<?
}
--- 21,24 ----
Index: chi_squared_probabilities.php
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/chi_squared_probabilities.php,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** chi_squared_probabilities.php 12 Mar 2006 18:09:11 -0000 1.1
--- chi_squared_probabilities.php 5 Apr 2006 10:10:03 -0000 1.2
***************
*** 5,10 ****
function calculate () {
?>
! rk.temp = (pchisq (q = <? getRK ("val"); ?>, df = <? getRK ("df"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
! rk.temp.date = date()
<?
}
--- 5,9 ----
function calculate () {
?>
! rk.temp <- (pchisq (q = <? getRK ("val"); ?>, df = <? getRK ("df"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
<?
}
***************
*** 14,25 ****
//produce the output
?>
! cat ("<h1>Chi-squared probaility</h1>")
!
! cat ("<table border = \"1\">")
! cat ("<TR><TD>Method:</TD><TD>Variable value = <? getRK ("val"); ?></TD><TD>Degree of Freedom = <? getRK ("df"); ?></TD><TD>ncp = <? getRK ("ncp"); ?></TD><TD><? getRK ("tail"); ?></TD></TR>")
! cat ("<TR><TD>", rk.temp.date,"</TD></TR>")
! cat ("<TR><TD></TD></TR>")
! cat ("<TR><TD>Chi-squared probaility:</TD><TD> ", rk.temp," </TD></TR>")
! cat ("</table>")
<?
}
--- 13,18 ----
//produce the output
?>
! rk.header ("Chi-squared probability", list ("Variable value", "<? getRK ("val"); ?>", "Degrees of Freedom", "<? getRK ("df"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>"));
! cat ("<h3>Chi-squared probaility: ", rk.temp, "</h3>")
<?
}
***************
*** 28,32 ****
?>
rm (rk.temp)
- rm (rk.temp.date)
<?
}
--- 21,24 ----
Index: plot_t_distribution.xml
===================================================================
RCS file: /cvsroot/rkward/rkward/rkward/plugins/distributions/plot_t_distribution.xml,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** plot_t_distribution.xml 12 Mar 2006 19:11:36 -0000 1.2
--- plot_t_distribution.xml 5 Apr 2006 10:10:03 -0000 1.3
***************
*** 11,24 ****
<column>
<row>
! <spinbox max_precision="2" default_precision="2" type="real" min="-10000000" id="n" initial="100" max="10000000" label="Number of Observations" />
</row>
<row>
<frame label="Range" >
! <spinbox max_precision="2" default_precision="2" type="real" min="-10000000" id="min" initial="-12.924" max="10000000" label="Minumum" />
! <spinbox max_precision="2" default_precision="2" type="real" min="-10000000" id="max" initial="12.924" max="10000000" label="Maximum" />
</frame>
</row>
<row>
! <spinbox max_precision="2" default_precision="2" type="real" min="-10000000" id="mean" initial="0" max="10000000" label="Degree of freedom" />
</row>
</column>
--- 11,24 ----
<column>
<row>
! <spinbox max_precision="2" default_precision="2" type="real" id="n" initial="100" label="Number of Observations" />
</row>
<row>
<frame label="Range" >
! <spinbox max_precision="2" default_precision="2" type="real" id="min" initial="-12.924" label="Minimum" />
! <spinbox max_precision="2" default_precision="2" type="real" id="max" initial="12.924" label="Maximum" />
</frame>
</row>
<row>
! <spinbox max_precision="2" default_precision="2" type="real" id="df" initial="0.01" label="Degrees of freedom" />
</row>
</column>
***************
*** 28,31 ****
--- 28,32 ----
<option value="pt" label="Plot distribution" />
</radio>
+ <stretch/>
</column>
</row>
More information about the rkward-tracker
mailing list