[rkward-cvs] SF.net SVN: rkward: [1079] trunk/rkward/rkward/plugins/distributions
tfry at users.sourceforge.net
tfry at users.sourceforge.net
Sun Jan 7 16:51:15 UTC 2007
Revision: 1079
http://svn.sourceforge.net/rkward/?rev=1079&view=rev
Author: tfry
Date: 2007-01-07 08:51:14 -0800 (Sun, 07 Jan 2007)
Log Message:
-----------
Plugin coding style
Modified Paths:
--------------
trunk/rkward/rkward/plugins/distributions/poisson_probabilities.php
trunk/rkward/rkward/plugins/distributions/poisson_quantiles.php
trunk/rkward/rkward/plugins/distributions/shapiro_test.php
trunk/rkward/rkward/plugins/distributions/shapiro_test.xml
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/poisson_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/poisson_probabilities.php 2007-01-07 16:44:15 UTC (rev 1078)
+++ trunk/rkward/rkward/plugins/distributions/poisson_probabilities.php 2007-01-07 16:51:14 UTC (rev 1079)
@@ -14,7 +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, "Poisson probabilities")
+rk.results (rk.temp, titles="Poisson probabilities")
<?
}
Modified: trunk/rkward/rkward/plugins/distributions/poisson_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/poisson_quantiles.php 2007-01-07 16:44:15 UTC (rev 1078)
+++ trunk/rkward/rkward/plugins/distributions/poisson_quantiles.php 2007-01-07 16:51:14 UTC (rev 1079)
@@ -14,7 +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, "Poisson quantiles")
+rk.results (rk.temp, titles="Poisson quantiles")
<?
}
Modified: trunk/rkward/rkward/plugins/distributions/shapiro_test.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/shapiro_test.php 2007-01-07 16:44:15 UTC (rev 1078)
+++ trunk/rkward/rkward/plugins/distributions/shapiro_test.php 2007-01-07 16:51:14 UTC (rev 1079)
@@ -6,54 +6,41 @@
$vars = "substitute (" . str_replace ("\n", "), substitute (", trim (getRK_val ("x"))) . ")";
?>
- rk.temp.options <- list (dolength=<? getRK ("length"); ?>, donacount=<? getRK ("nacount"); ?>)
+require(nortest)
- rk.temp.results <- list ()
- i=0; for (var in list (<? echo ($vars); ?>)) {
+rk.temp.vars <- list (<? echo ($vars); ?>)
+rk.temp.results <- data.frame ('Variable Name'=rep (NA, length (rk.temp.vars)), check.names=FALSE)
+i=0;
+for (var in rk.temp.vars) {
i = i+1
- rk.temp.results[[i]] <- list ()
- rk.temp.results[[i]]$object <- rk.get.description (var, is.substitute=TRUE)
- rk.temp.results[[i]]$shapiro <- shapiro.test (eval (var))
- if (rk.temp.options$dolength) try (rk.temp.results[[i]]$length <- length (eval (var)))
- if (rk.temp.options$donacount) try (rk.temp.results[[i]]$nacount <- length (which(is.na(eval (var)))))
+ rk.temp.results$'Variable Name'[i] <- rk.get.description (var, is.substitute=TRUE)
+ <? if (getRK_val ("length")) { ?>
+ rk.temp.results$'Length'[i] <- try (length (eval (var)))
+ <? }
+ if (getRK_val ("nacount")) { ?>
+ rk.temp.results$'NAs'[i] <- try (length (which(is.na(eval (var)))))
+ <? } ?>
+ try ({
+ rk.temp.test <- shapiro.test (eval (var))
+ rk.temp.results$'Statistic'[i] <- paste (names (rk.temp.test$statistic), rk.temp.test$statistic, sep=" = ")
+ rk.temp.results$'p-value'[i] <- rk.temp.test$p.value
+ })
}
-
-
<?
}
function printout () {
-?> cat ("<h1>Shapiro-Wilk Normality Test</h1>\n")
-
-cat ("<table border=\"1\">")
- cat ("<tbody>")
- cat ("<tr>")
- cat ("<td>Variable Name</td>")
- if (rk.temp.options$dolength) cat ("<td>Length</td>")
- if (rk.temp.options$donacount) cat ("<td>NAs</td>")
- cat ("<td>W</td>")
- cat ("<td>p-value</td>")
- cat ("<td>Test</td>")
- cat ("<td>variable</td>")
- cat ("</tr>")
-for (i in 1:length (rk.temp.results)) {
- cat ("<tr><td>", rk.temp.results[[i]]$object, "</td>")
- if (rk.temp.options$dolength) cat ("<td>", rk.temp.results[[i]]$length, "</td>")
- if (rk.temp.options$donacount) cat ("<td>", rk.temp.results[[i]]$nacount, "</td>")
- cat (paste ("<td>", rk.temp.results[[i]]$shapiro,"</td>"))
- cat ("</tr>")
-}
- cat ("</tbody>")
-cat ("</table>")
-
-
+?>
+rk.header ("Shapiro-Wilk Normality Test")
+rk.results (rk.temp.results)
<?
}
function cleanup () {
?>
- rm (rk.temp.results)
- rm (rk.temp.options)
- rm (var)
+rm (rk.temp.results)
+rm (rk.temp.vars)
+rm (rk.temp.test)
+rm (var)
<?
}
?>
\ No newline at end of file
Modified: trunk/rkward/rkward/plugins/distributions/shapiro_test.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/shapiro_test.xml 2007-01-07 16:44:15 UTC (rev 1078)
+++ trunk/rkward/rkward/plugins/distributions/shapiro_test.xml 2007-01-07 16:51:14 UTC (rev 1079)
@@ -12,9 +12,10 @@
<varselector id="vars"/>
</column>
<column>
- <frame label="The number of the selcted values must be between 3 and 5000">
- <varslot type="numeric" multi="true" id="x" source="vars" required="true" label="variable(s):"/>
- </frame>
+ <varslot type="numeric" multi="true" id="x" source="vars" required="true" label="variable(s):" min_length="3" max_length="5000"/>
+ <text>
+ Note: Objects must have between 3 and 5000 values
+ </text>
<stretch/>
</column>
</row>
@@ -22,6 +23,7 @@
<tab label="Options">
<checkbox id="length" label="Show Length" value_unchecked="0" value="1" checked="true" />
<checkbox id="nacount" label="Show Missing Values" value_unchecked="0" value="1" checked="false" />
+ <stretch/>
</tab>
</tabbook>
</dialog>
Modified: trunk/rkward/rkward/plugins/distributions/t_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/t_probabilities.php 2007-01-07 16:44:15 UTC (rev 1078)
+++ trunk/rkward/rkward/plugins/distributions/t_probabilities.php 2007-01-07 16:51:14 UTC (rev 1079)
@@ -14,7 +14,7 @@
global $q;
?>
rk.header ("t probability", list ("Vector of quantiles", "<? echo ($q); ?>", "Degrees of Freedom", "<? getRK ("df"); ?>", "Tail", "<? getRK ("tail"); ?>"));
-cat ("<h3>t probabilities: ", rk.temp, "</h3>")
+rk.results (rk.temp, titles="t probabilities")
<?
}
Modified: trunk/rkward/rkward/plugins/distributions/t_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/t_quantiles.php 2007-01-07 16:44:15 UTC (rev 1078)
+++ trunk/rkward/rkward/plugins/distributions/t_quantiles.php 2007-01-07 16:51:14 UTC (rev 1079)
@@ -14,7 +14,7 @@
global $p;
?>
rk.header ("t quantile", list ("Vector of probabilities", "<? echo ($p); ?>", "Degrees of freedom", "<? getRK ("df"); ?>", "Tail", "<? getRK ("tail"); ?>"));
-cat ("<h3>t quantiles: ", rk.temp, "</h3>")
+rk.results (rk.temp, titles="t quantiles")
<?
}
Modified: trunk/rkward/rkward/plugins/distributions/tukey_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/tukey_probabilities.php 2007-01-07 16:44:15 UTC (rev 1078)
+++ trunk/rkward/rkward/plugins/distributions/tukey_probabilities.php 2007-01-07 16:51:14 UTC (rev 1079)
@@ -14,7 +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"); ?>"));
-cat ("<h3>Studentized Range probabilities: ", rk.temp, "</h3>")
+rk.results (rk.temp, titles="Studentized Range probabilities")
<?
}
Modified: trunk/rkward/rkward/plugins/distributions/tukey_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/tukey_quantiles.php 2007-01-07 16:44:15 UTC (rev 1078)
+++ trunk/rkward/rkward/plugins/distributions/tukey_quantiles.php 2007-01-07 16:51:14 UTC (rev 1079)
@@ -14,7 +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"); ?>"));
-cat ("<h3>Studentized Range quantiles: ", rk.temp, "</h3>")
+rk.results (rk.temp, titles="Studentized Range quantiles")
<?
}
Modified: trunk/rkward/rkward/plugins/distributions/uniform_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/uniform_probabilities.php 2007-01-07 16:44:15 UTC (rev 1078)
+++ trunk/rkward/rkward/plugins/distributions/uniform_probabilities.php 2007-01-07 16:51:14 UTC (rev 1079)
@@ -14,7 +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"); ?>"))
-cat ("<h3>Uniform probabilities: ", rk.temp, "</h3>")
+rk.results (rk.temp, titles="Uniform probabilities")
<?
}
Modified: trunk/rkward/rkward/plugins/distributions/uniform_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/uniform_quantiles.php 2007-01-07 16:44:15 UTC (rev 1078)
+++ trunk/rkward/rkward/plugins/distributions/uniform_quantiles.php 2007-01-07 16:51:14 UTC (rev 1079)
@@ -14,7 +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"); ?>"))
-cat ("<h3>Uniform quantiles: ", rk.temp, "</h3>")
+rk.results (rk.temp, titles="Uniform quantiles")
<?
}
Modified: trunk/rkward/rkward/plugins/distributions/weibull_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/weibull_probabilities.php 2007-01-07 16:44:15 UTC (rev 1078)
+++ trunk/rkward/rkward/plugins/distributions/weibull_probabilities.php 2007-01-07 16:51:14 UTC (rev 1079)
@@ -14,7 +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"); ?>"))
-cat ("<h3>Weibull probabilities: ", rk.temp, "</h3>")
+rk.results (rk.temp, titles="Weibull probabilities")
<?
}
Modified: trunk/rkward/rkward/plugins/distributions/weibull_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/weibull_quantiles.php 2007-01-07 16:44:15 UTC (rev 1078)
+++ trunk/rkward/rkward/plugins/distributions/weibull_quantiles.php 2007-01-07 16:51:14 UTC (rev 1079)
@@ -14,7 +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"); ?>"))
-cat ("<h3>Weibull quantiles: ", rk.temp, "</h3>")
+rk.results (rk.temp, titles="Weibull quantiles")
<?
}
Modified: trunk/rkward/rkward/plugins/distributions/wilcoxon_probabilities.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/wilcoxon_probabilities.php 2007-01-07 16:44:15 UTC (rev 1078)
+++ trunk/rkward/rkward/plugins/distributions/wilcoxon_probabilities.php 2007-01-07 16:51:14 UTC (rev 1079)
@@ -14,7 +14,7 @@
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"); ?>"))
-cat ("<h3>Wilcoxon Rank Sum probabilities: ", rk.temp, "</h3>")
+rk.results (rk.temp, titles="Wilcoxon Rank Sum probabilities")
<?
}
Modified: trunk/rkward/rkward/plugins/distributions/wilcoxon_quantiles.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/wilcoxon_quantiles.php 2007-01-07 16:44:15 UTC (rev 1078)
+++ trunk/rkward/rkward/plugins/distributions/wilcoxon_quantiles.php 2007-01-07 16:51:14 UTC (rev 1079)
@@ -14,7 +14,7 @@
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"); ?>"))
-cat ("<h3>Wilcoxon Rank Sum quantiles: ", rk.temp, "</h3>")
+rk.results (rk.temp, titles="Wilcoxon Rank Sum quantiles")
<?
}
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