[rkward-cvs] SF.net SVN: rkward: [1703] trunk/rkward/rkward/plugins/distributions
tfry at users.sourceforge.net
tfry at users.sourceforge.net
Thu Mar 22 19:24:38 UTC 2007
Revision: 1703
http://svn.sourceforge.net/rkward/?rev=1703&view=rev
Author: tfry
Date: 2007-03-22 12:24:37 -0700 (Thu, 22 Mar 2007)
Log Message:
-----------
(trivial) local() adjustments, and a few indentation fixes, where needed
Modified Paths:
--------------
trunk/rkward/rkward/plugins/distributions/beta_probabilities.php
trunk/rkward/rkward/plugins/distributions/beta_quantiles.php
trunk/rkward/rkward/plugins/distributions/binomial_quantiles.php
trunk/rkward/rkward/plugins/distributions/binomial_tail_probabilities.php
trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.php
trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.php
trunk/rkward/rkward/plugins/distributions/chi_squared_probabilities.php
trunk/rkward/rkward/plugins/distributions/chi_squared_quantiles.php
trunk/rkward/rkward/plugins/distributions/exponential_probabilities.php
trunk/rkward/rkward/plugins/distributions/exponential_quantiles.php
trunk/rkward/rkward/plugins/distributions/f_probabilities.php
trunk/rkward/rkward/plugins/distributions/f_quantiles.php
trunk/rkward/rkward/plugins/distributions/gamma_probabilities.php
trunk/rkward/rkward/plugins/distributions/gamma_quantiles.php
trunk/rkward/rkward/plugins/distributions/geom_probabilities.php
trunk/rkward/rkward/plugins/distributions/geom_quantiles.php
trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.php
trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.php
trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.php
trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.php
trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.php
trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.php
trunk/rkward/rkward/plugins/distributions/logistic_probabilities.php
trunk/rkward/rkward/plugins/distributions/logistic_quantiles.php
trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.php
trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.php
trunk/rkward/rkward/plugins/distributions/normal_probabilities.php
trunk/rkward/rkward/plugins/distributions/normal_quantiles.php
trunk/rkward/rkward/plugins/distributions/plot_beta_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_binomial_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_cauchy_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_chi_squared_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_exponential_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_f_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_gamma_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_geometric_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_hypergeometric_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_logistic_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_lognormal_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_negbinomial_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_normal_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_poisson_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_t_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_tukey_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_uniform_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_weibull_distribution.php
trunk/rkward/rkward/plugins/distributions/plot_wilcoxon_distribution.php
trunk/rkward/rkward/plugins/distributions/poisson_probabilities.php
trunk/rkward/rkward/plugins/distributions/poisson_quantiles.php
trunk/rkward/rkward/plugins/distributions/t_probabilities.php
trunk/rkward/rkward/plugins/distributions/t_quantiles.php
trunk/rkward/rkward/plugins/distributions/tukey_probabilities.php
trunk/rkward/rkward/plugins/distributions/tukey_quantiles.php
trunk/rkward/rkward/plugins/distributions/uniform_probabilities.php
trunk/rkward/rkward/plugins/distributions/uniform_quantiles.php
trunk/rkward/rkward/plugins/distributions/weibull_probabilities.php
trunk/rkward/rkward/plugins/distributions/weibull_quantiles.php
trunk/rkward/rkward/plugins/distributions/wilcoxon_probabilities.php
trunk/rkward/rkward/plugins/distributions/wilcoxon_quantiles.php
Modified: trunk/rkward/rkward/plugins/distributions/beta_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/beta_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/beta_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (pbeta (q = <? echo ($q); ?>, shape1 = <? getRK ("shape1"); ?>, shape2 = <? getRK ("shape2"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (pbeta (q = <? echo ($q); ?>, shape1 = <? getRK ("shape1"); ?>, shape2 = <? getRK ("shape2"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("Beta probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Shape 1", "<? getRK ("shape1"); ?>", "Shape 2", "<? getRK ("shape2"); ?>", "non-centrality parameter (ncp)", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
-rk.results (rk.temp, titles="Beta probability")
+rk.results (result, titles="Beta probability")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/beta_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/beta_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/beta_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -7,7 +7,7 @@
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qbeta (p = <? echo ($p); ?>, shape1 = <? getRK ("shape1"); ?>, shape2 = <? getRK ("shape2"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (qbeta (p = <? echo ($p); ?>, shape1 = <? getRK ("shape1"); ?>, shape2 = <? getRK ("shape2"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -15,13 +15,7 @@
global $p;
?>
rk.header ("Beta quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Shape 1", "<? getRK ("shape1"); ?>", "Shape 2", "<? getRK ("shape2"); ?>", "non-centrality parameter (ncp)", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
-rk.results (rk.temp, titles="Beta quantiles")
+rk.results (result, titles="Beta quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/binomial_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/binomial_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/binomial_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qbinom (p = <? echo ($p); ?>, size = <? getRK ("size"); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
+result <- (qbinom (p = <? echo ($p); ?>, size = <? getRK ("size"); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
<?
}
@@ -15,12 +15,7 @@
global $p;
?>
rk.header ("Binomial quantile", list ("Vector of quantiles probabilities", "<? echo ($p); ?>", "Binomial trials", "<? getRK ("size"); ?>", "Probability of success", "<? getRK ("prob"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
-rk.results (rk.temp, titles="Binomial quantiles")
+rk.results (result, titles="Binomial quantiles")
<?
}
-
-function cleanup () { ?>
-rm (rk.temp)
-<?
-}
?>
Modified: trunk/rkward/rkward/plugins/distributions/binomial_tail_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/binomial_tail_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/binomial_tail_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (pbinom (q = <? echo ($q); ?>, size = <? getRK ("size"); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
+result <- (pbinom (q = <? echo ($q); ?>, size = <? getRK ("size"); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
<?
}
@@ -14,12 +14,7 @@
global $q;
?>
rk.header ("Binomial tail probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Binomial trials", "<? getRK ("size"); ?>", "Probability of success", "<? getRK ("prob"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
-rk.results (rk.temp, titles="Binomial tail probabilities")
+rk.results (result, titles="Binomial tail probabilities")
<?
}
-
-function cleanup () { ?>
-rm (rk.temp)
-<?
-}
?>
Modified: trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/cauchy_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (pcauchy (q = <? echo ($q); ?>, location = <? getRK ("location"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (pcauchy (q = <? echo ($q); ?>, location = <? getRK ("location"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("Cauchy probabilities", list ("Vector of quantiles", "<? echo ($q); ?>", "Location", "<? getRK ("location"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Cauchy probabilities")
+rk.results (result, titles="Cauchy probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/cauchy_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qcauchy (p = <? echo ($p); ?>, location = <? getRK ("location"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (qcauchy (p = <? echo ($p); ?>, location = <? getRK ("location"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("Cauchy quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Location", "<? getRK ("location"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
-rk.results (rk.temp, titles="Cauchy quantiles")
+rk.results (result, titles="Cauchy quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/chi_squared_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/chi_squared_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/chi_squared_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (pchisq (q = <? echo ($q); ?>, df = <? getRK ("df"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
+result <- (pchisq (q = <? echo ($q); ?>, df = <? getRK ("df"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("Chi-squared probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Degrees of Freedom", "<? getRK ("df"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
-rk.results (rk.temp, titles="Chi-squared probailities")
+rk.results (result, titles="Chi-squared probailities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/chi_squared_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/chi_squared_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/chi_squared_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qchisq (p = <? echo ($p); ?>, df = <? getRK ("df"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
+result <- (qchisq (p = <? echo ($p); ?>, df = <? getRK ("df"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("Chi-squared quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Degrees of freedom", "<? getRK ("df"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
-rk.results (rk.temp, titles="Chi-squared quantiles")
+rk.results (result, titles="Chi-squared quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/exponential_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/exponential_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/exponential_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -7,7 +7,7 @@
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (pexp (q = <? echo ($q); ?>, rate = <? getRK ("rate"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (pexp (q = <? echo ($q); ?>, rate = <? getRK ("rate"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -15,13 +15,7 @@
global $q;
?>
rk.header ("Exponential probabilities", list ("Vector of quantiles", "<? echo ($q); ?>", "Rate", "<? getRK ("rate"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Exponential probabilities")
+rk.results (result, titles="Exponential probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/exponential_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/exponential_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/exponential_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qexp (p = <? echo ($p); ?>, rate = <? getRK ("rate"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (qexp (p = <? echo ($p); ?>, rate = <? getRK ("rate"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("Exponential quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Rate", "<? getRK ("rate"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Exponential quantiles")
+rk.results (result, titles="Exponential quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/f_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/f_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/f_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (pf (q = <? echo ($q); ?>, df1 = <? getRK ("df1"); ?>, df2 = <? getRK ("df2"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
+result <- (pf (q = <? echo ($q); ?>, df1 = <? getRK ("df1"); ?>, df2 = <? getRK ("df2"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("F probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Numerator degrees of freedom", "<? getRK ("df1"); ?>", "Denominator degrees of freedom", "<? getRK ("df2"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>"));
-rk.results (rk.temp, titles="F probabilities")
+rk.results (result, titles="F probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/f_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/f_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/f_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qf (p = <? echo ($p); ?>, df1 = <? getRK ("df1"); ?>, df2 = <? getRK ("df2"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
+result <- (qf (p = <? echo ($p); ?>, df1 = <? getRK ("df1"); ?>, df2 = <? getRK ("df2"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("F quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Numerator degrees of freedom", "<? getRK ("df1"); ?>", "Denominator degrees of freedom", "<? getRK ("df2"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>"));
-rk.results (rk.temp, titles="F quantiles")
+rk.results (result, titles="F quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/gamma_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gamma_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/gamma_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (pgamma (q = <? echo ($q); ?>, shape = <? getRK ("shape"); ?>, rate = <? getRK ("rate"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (pgamma (q = <? echo ($q); ?>, shape = <? getRK ("shape"); ?>, rate = <? getRK ("rate"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("Gamma probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Shape", "<? getRK ("shape"); ?>", "Rate", "<? getRK ("rate"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Gamma probabilities")
+rk.results (result, titles="Gamma probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/gamma_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gamma_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/gamma_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qgamma (p = <? echo ($p); ?>, shape = <? getRK ("shape"); ?>, rate = <? getRK ("rate"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (qgamma (p = <? echo ($p); ?>, shape = <? getRK ("shape"); ?>, rate = <? getRK ("rate"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -15,13 +15,7 @@
global $p;
?>
rk.header ("Gamma quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Shape", "<? getRK ("shape"); ?>", "Rate", "<? getRK ("rate"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Gamma quantiles")
+rk.results (result, titles="Gamma quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/geom_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/geom_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/geom_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (pgeom (q = <? echo ($q); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (pgeom (q = <? echo ($q); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("Geometric probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Probability of success in each trial", "<? getRK ("prob"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Geometric probabilities")
+rk.results (result, titles="Geometric probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/geom_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/geom_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/geom_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qgeom (p = <? echo ($p); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (qgeom (p = <? echo ($p); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("Geometric quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Probability of success in each trial", "<? getRK ("prob"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Geometric quantiles")
+rk.results (result, titles="Geometric quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/gumbel_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (pweibull (q = exp(<? echo ($q); ?>), shape = <? getRK ("shape"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (pweibull (q = exp(<? echo ($q); ?>), shape = <? getRK ("shape"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("Gumbel probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Shape", "<? getRK ("shape"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Gumbel probabilities")
+rk.results (result, titles="Gumbel probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/gumbel_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- log(qweibull (p = <? echo ($p); ?>, shape = <? getRK ("shape"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- log(qweibull (p = <? echo ($p); ?>, shape = <? getRK ("shape"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("Gumbel quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Shape", "<? getRK ("shape"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Gumbel quantiles")
+rk.results (result, titles="Gumbel quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/hypergeometric_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (phyper (q = <? echo ($q); ?>, m = <? getRK ("m"); ?>, n = <? getRK ("n"); ?>, k = <? getRK ("k"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (phyper (q = <? echo ($q); ?>, m = <? getRK ("m"); ?>, n = <? getRK ("n"); ?>, k = <? getRK ("k"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("Hypergeometric probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Number of white balls in the urn", "<? getRK ("m"); ?>", "Number of black balls in the urn", "<? getRK ("n"); ?>", "Number of balls drawn from the urn", "<? getRK ("k"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Hypergeometric probabilities")
+rk.results (result, titles="Hypergeometric probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/hypergeometric_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qhyper (p = <? echo ($p); ?>, m = <? getRK ("m"); ?>, n = <? getRK ("n"); ?>, k = <? getRK ("k"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (qhyper (p = <? echo ($p); ?>, m = <? getRK ("m"); ?>, n = <? getRK ("n"); ?>, k = <? getRK ("k"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("Hypergeometric quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Number of white balls in the urn", "<? getRK ("m"); ?>", "Number of black balls in the urn", "<? getRK ("n"); ?>", "Number of balls drawn from the urn", "<? getRK ("k"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Hypergeometric quantiles")
+rk.results (result, titles="Hypergeometric quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/log_normal_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (plnorm (q = <? echo ($q); ?>, meanlog = <? getRK ("meanlog"); ?>, sdlog = <? getRK ("sdlog"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
+result <- (plnorm (q = <? echo ($q); ?>, meanlog = <? getRK ("meanlog"); ?>, sdlog = <? getRK ("sdlog"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("Log Normal probability", list ("Vector of quantiles", "<? echo ($q); ?>", "meanlog", "<? getRK ("meanlog"); ?>", "sdlog", "<? getRK ("sdlog"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Log Normal probabilities")
+rk.results (result, titles="Log Normal probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/log_normal_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qlnorm (p = <? echo ($p); ?>, meanlog = <? getRK ("meanlog"); ?>, sdlog = <? getRK ("sdlog"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
+result <- (qlnorm (p = <? echo ($p); ?>, meanlog = <? getRK ("meanlog"); ?>, sdlog = <? getRK ("sdlog"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("Log Normal quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "meanlog", "<? getRK ("meanlog"); ?>", "sdlog", "<? getRK ("sdlog"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Log Normal quantiles")
+rk.results (result, titles="Log Normal quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/logistic_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/logistic_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/logistic_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (plogis (q = <? echo ($q); ?>, location = <? getRK ("location"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (plogis (q = <? echo ($q); ?>, location = <? getRK ("location"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("Logistic probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Location", "<? getRK ("location"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Logistic probabilities")
+rk.results (result, titles="Logistic probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/logistic_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/logistic_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/logistic_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qlogis (p = <? echo ($p); ?>, location = <? getRK ("location"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (qlogis (p = <? echo ($p); ?>, location = <? getRK ("location"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("Logistic quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Location", "<? getRK ("location"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Logistic quantiles")
+rk.results (result, titles="Logistic quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/negative_binomial_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -7,7 +7,7 @@
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (pnbinom (q = <? echo ($q); ?>, size = <? getRK ("size"); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (pnbinom (q = <? echo ($q); ?>, size = <? getRK ("size"); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -15,13 +15,7 @@
global $q;
?>
rk.header ("Negative Binomial probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Size", "<? getRK ("size"); ?>", "Probability of success in each trial", "<? getRK ("prob"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Negative Binomial probabilities")
+rk.results (result, titles="Negative Binomial probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/negative_binomial_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qnbinom (p = <? echo ($p); ?>, size = <? getRK ("size"); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (qnbinom (p = <? echo ($p); ?>, size = <? getRK ("size"); ?>, prob = <? getRK ("prob"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("Negative Binomial quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Size", "<? getRK ("size"); ?>", "Probability of success in each trial", "<? getRK ("prob"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Negative Binomial quantiles")
+rk.results (result, titles="Negative Binomial quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/normal_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/normal_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/normal_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (pnorm (q = <? echo ($q); ?>, mean = <? getRK ("mean"); ?>, sd = <? getRK ("sd"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
+result <- (pnorm (q = <? echo ($q); ?>, mean = <? getRK ("mean"); ?>, sd = <? getRK ("sd"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("Normal probability", list ("Vector of quantiles", "<? echo ($q); ?>", "mu", "<? getRK ("mean"); ?>", "sigma", "<? getRK ("sd"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
-rk.results (rk.temp, titles="Normal probabilities")
+rk.results (result, titles="Normal probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/normal_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/normal_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/normal_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qnorm (p = <? echo ($p); ?>, mean = <? getRK ("mean"); ?>, sd = <? getRK ("sd"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
+result <- (qnorm (p = <? echo ($p); ?>, mean = <? getRK ("mean"); ?>, sd = <? getRK ("sd"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("Normal quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "mu", "<? getRK ("mean"); ?>", "sigma", "<? getRK ("sd"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
-rk.results (rk.temp, titles="Normal quantiles")
+rk.results (result, titles="Normal quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/plot_beta_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_beta_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_beta_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -9,14 +9,10 @@
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/plot_binomial_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_binomial_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_binomial_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/plot_cauchy_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_cauchy_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_cauchy_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/plot_chi_squared_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_chi_squared_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_chi_squared_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/plot_exponential_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_exponential_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_exponential_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/plot_f_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_f_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_f_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
@@ -44,7 +40,7 @@
$n = getRK_val ("n");
$min = getRK_val ("min");
$max = getRK_val ("max");
- $ncp = getRK_val ("ncp");
+ $ncp = getRK_val ("ncp");
$df1 = getRK_val ("df1");
$df2 = getRK_val ("df2");
Modified: trunk/rkward/rkward/plugins/distributions/plot_gamma_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_gamma_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_gamma_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/plot_geometric_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_geometric_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_geometric_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/plot_hypergeometric_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_hypergeometric_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_hypergeometric_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/plot_logistic_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_logistic_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_logistic_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/plot_lognormal_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_lognormal_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_lognormal_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
@@ -45,7 +41,7 @@
$min = getRK_val ("min");
$max = getRK_val ("max");
$sd = getRK_val ("sd");
- $mean = getRK_val ("mean");
+ $mean = getRK_val ("mean");
if ($final) { ?>
rk.header ("Lognormal <? echo ($label); ?> function", list ("Number of Observations", "<? echo ($n); ?>", "Lower quantile", "<? echo ($min); ?>","Upper quantile", "<? echo ($max); ?>", "Mean", "<? echo ($mean); ?>", "Standard deviation", "<? echo ($sd); ?>", "Scaling", "<? echo ($log_label); ?>"<? echo ($tail_tag); ?>, "Function", "<? echo ($fun); ?>"));
Modified: trunk/rkward/rkward/plugins/distributions/plot_negbinomial_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_negbinomial_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_negbinomial_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/plot_normal_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_normal_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_normal_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -9,14 +9,10 @@
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/plot_poisson_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_poisson_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_poisson_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/plot_t_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_t_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_t_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
@@ -44,7 +40,7 @@
$n = getRK_val ("n");
$min = getRK_val ("min");
$max = getRK_val ("max");
- $ncp = getRK_val ("ncp");
+ $ncp = getRK_val ("ncp");
$df = getRK_val ("df");
if ($final) { ?>
Modified: trunk/rkward/rkward/plugins/distributions/plot_tukey_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_tukey_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_tukey_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/plot_uniform_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_uniform_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_uniform_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/plot_weibull_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_weibull_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_weibull_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/plot_wilcoxon_distribution.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/plot_wilcoxon_distribution.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/plot_wilcoxon_distribution.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,22 +1,18 @@
<?
- function preprocess () {
- }
+function preprocess () {
+}
- function calculate () {
- }
+function calculate () {
+}
- function printout () {
+function printout () {
doPrintout (true);
}
-function cleanup () {
-}
-
function preview () {
preprocess ();
calculate ();
doPrintout (false);
- cleanup ();
}
function doPrintout ($final) {
Modified: trunk/rkward/rkward/plugins/distributions/poisson_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/poisson_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/poisson_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (ppois (q = <? echo ($q); ?>, lambda = <? getRK ("lambda"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (ppois (q = <? echo ($q); ?>, lambda = <? getRK ("lambda"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("Poisson probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Lambda", "<? getRK ("lambda"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Poisson probabilities")
+rk.results (result, titles="Poisson probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/poisson_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/poisson_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/poisson_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qpois (p = <? echo ($p); ?>, lambda = <? getRK ("lambda"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (qpois (p = <? echo ($p); ?>, lambda = <? getRK ("lambda"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("Poisson quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Lambda", "<? getRK ("lambda"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Poisson quantiles")
+rk.results (result, titles="Poisson quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/t_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/t_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/t_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (pt (q = <? echo ($q); ?>, df = <? getRK ("df"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
+result <- (pt (q = <? echo ($q); ?>, df = <? getRK ("df"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("t probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Degrees of Freedom", "<? getRK ("df"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>"));
-rk.results (rk.temp, titles="t probabilities")
+rk.results (result, titles="t probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/t_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/t_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/t_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qt (p = <? echo ($p); ?>, df = <? getRK ("df"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
+result <- (qt (p = <? echo ($p); ?>, df = <? getRK ("df"); ?>, ncp = <? getRK ("ncp"); ?>, <? getRK ("tail"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("t quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Degrees of freedom", "<? getRK ("df"); ?>", "non-centrality parameter", "<? getRK ("ncp"); ?>", "Tail", "<? getRK ("tail"); ?>"));
-rk.results (rk.temp, titles="t quantiles")
+rk.results (result, titles="t quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/tukey_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/tukey_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/tukey_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (ptukey (q = <? echo ($q); ?>, nmeans = <? getRK ("nmeans"); ?>, df = <? getRK ("df"); ?>, nranges = <? getRK ("nranges"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
+result <- (ptukey (q = <? echo ($q); ?>, nmeans = <? getRK ("nmeans"); ?>, df = <? getRK ("df"); ?>, nranges = <? getRK ("nranges"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("Studentized Range probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Sample size for range", "<? getRK ("nmeans"); ?>", "Degrees of freedom for s", "<? getRK ("df"); ?>", "Number of groups whose maximum range is considered", "<? getRK ("nranges"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
-rk.results (rk.temp, titles="Studentized Range probabilities")
+rk.results (result, titles="Studentized Range probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/tukey_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/tukey_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/tukey_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qtukey (p = <? echo ($p); ?>, nmeans = <? getRK ("nmeans"); ?>, df = <? getRK ("df"); ?>, nranges = <? getRK ("nranges"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
+result <- (qtukey (p = <? echo ($p); ?>, nmeans = <? getRK ("nmeans"); ?>, df = <? getRK ("df"); ?>, nranges = <? getRK ("nranges"); ?>, <? getRK ("tail"); ?>, <? getRK ("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("Studentized Range quantiles", list ("Vector of probabilities", "<? echo ($p); ?>", "Sample size for range", "<? getRK ("nmeans"); ?>", "Degrees of freedom for s", "<? getRK ("df"); ?>", "Number of groups whose maximum range is considered", "<? getRK ("nranges"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"));
-rk.results (rk.temp, titles="Studentized Range quantiles")
+rk.results (result, titles="Studentized Range quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/uniform_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/uniform_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/uniform_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (punif (q = <? echo ($q); ?>, min = <? getRK ("min"); ?>, max = <? getRK ("max"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (punif (q = <? echo ($q); ?>, min = <? getRK ("min"); ?>, max = <? getRK ("max"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("Uniform probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Lower limits of the distribution", "<? getRK ("min"); ?>", "Upper limits of the distribution", "<? getRK ("max"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Uniform probabilities")
+rk.results (result, titles="Uniform probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/uniform_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/uniform_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/uniform_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qunif (p = <? echo ($p); ?>, min = <? getRK ("min"); ?>, max = <? getRK ("max"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (qunif (p = <? echo ($p); ?>, min = <? getRK ("min"); ?>, max = <? getRK ("max"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("Uniform quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Lower limits of the distribution", "<? getRK ("min"); ?>", "Upper limits of the distribution", "<? getRK ("max"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Uniform quantiles")
+rk.results (result, titles="Uniform quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/weibull_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/weibull_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/weibull_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (pweibull (q = <? echo ($q); ?>, shape = <? getRK ("shape"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (pweibull (q = <? echo ($q); ?>, shape = <? getRK ("shape"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $q;
?>
rk.header ("Weibull probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Shape", "<? getRK ("shape"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Weibull probabilities")
+rk.results (result, titles="Weibull probabilities")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/weibull_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/weibull_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/weibull_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -6,7 +6,7 @@
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qweibull (p = <? echo ($p); ?>, shape = <? getRK ("shape"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (qweibull (p = <? echo ($p); ?>, shape = <? getRK ("shape"); ?>, scale = <? getRK ("scale"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
}
@@ -14,13 +14,7 @@
global $p;
?>
rk.header ("Weibull quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Shape", "<? getRK ("shape"); ?>", "Scale", "<? getRK ("scale"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Weibull quantiles")
+rk.results (result, titles="Weibull quantiles")
<?
}
-
-function cleanup () {
?>
-rm (rk.temp)
-<?
-}
-?>
Modified: trunk/rkward/rkward/plugins/distributions/wilcoxon_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/wilcoxon_probabilities.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/wilcoxon_probabilities.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,26 +1,20 @@
<?
function preprocess () {
}
-
+
function calculate () {
global $q;
$q = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("q")) . ")";
?>
-rk.temp <- (pwilcox (q = <? echo ($q); ?>, m = <? getRK ("m"); ?>, n = <? getRK ("n"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (pwilcox (q = <? echo ($q); ?>, m = <? getRK ("m"); ?>, n = <? getRK ("n"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
- }
-
+}
+
function printout () {
global $q;
?>
rk.header ("Wilcoxon Rank Sum probability", list ("Vector of quantiles", "<? echo ($q); ?>", "m (Numbers of observations in the first sample)", "<? getRK ("m"); ?>", "n (Numbers of observations in the second sample)", "<? getRK ("n"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Wilcoxon Rank Sum probabilities")
+rk.results (result, titles="Wilcoxon Rank Sum probabilities")
<?
- }
-
- function cleanup () {
+}
?>
-rm (rk.temp)
-<?
- }
-?>
Modified: trunk/rkward/rkward/plugins/distributions/wilcoxon_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/wilcoxon_quantiles.php 2007-03-22 19:08:48 UTC (rev 1702)
+++ trunk/rkward/rkward/plugins/distributions/wilcoxon_quantiles.php 2007-03-22 19:24:37 UTC (rev 1703)
@@ -1,26 +1,20 @@
<?
function preprocess () {
}
-
+
function calculate () {
global $p;
$p = "c (" . preg_replace ("/[, ]+/", ", ", getRK_val ("p")) . ")";
?>
-rk.temp <- (qwilcox (p = <? echo ($p); ?>, m = <? getRK ("m"); ?>, n = <? getRK ("n"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
+result <- (qwilcox (p = <? echo ($p); ?>, m = <? getRK ("m"); ?>, n = <? getRK ("n"); ?>, <? getRK ("tail"); ?>, <? getRK("logp"); ?>))
<?
- }
-
+}
+
function printout () {
global $p;
?>
rk.header ("Wilcoxon Rank Sum quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "m (Numbers of observations in the first sample)", "<? getRK ("m"); ?>", "n (Numbers of observations in the second sample)", "<? getRK ("n"); ?>", "Tail", "<? getRK ("tail"); ?>", "Probabilities p are given as", "<? getRK ("logp"); ?>"))
-rk.results (rk.temp, titles="Wilcoxon Rank Sum quantiles")
+rk.results (result, titles="Wilcoxon Rank Sum quantiles")
<?
- }
-
- function cleanup () {
+}
?>
-rm (rk.temp)
-<?
- }
-?>
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the rkward-tracker
mailing list