[rkward-cvs] SF.net SVN: rkward: [1021] trunk/rkward/rkward/plugins
sjar at users.sourceforge.net
sjar at users.sourceforge.net
Sun Dec 31 16:29:54 UTC 2006
Revision: 1021
http://svn.sourceforge.net/rkward/?rev=1021&view=rev
Author: sjar
Date: 2006-12-31 08:29:54 -0800 (Sun, 31 Dec 2006)
Log Message:
-----------
* initial support for skewness kurtosis (moments package) and adopted all.pluginmap
* minor corrections in agostino plug-in
Modified Paths:
--------------
trunk/rkward/rkward/plugins/all.pluginmap
trunk/rkward/rkward/plugins/distributions/agostino_test.xml
Added Paths:
-----------
trunk/rkward/rkward/plugins/20descriptive/skewness_kurtosis_test.php
trunk/rkward/rkward/plugins/20descriptive/skewness_kurtosis_test.xml
Added: trunk/rkward/rkward/plugins/20descriptive/skewness_kurtosis_test.php
===================================================================
--- trunk/rkward/rkward/plugins/20descriptive/skewness_kurtosis_test.php (rev 0)
+++ trunk/rkward/rkward/plugins/20descriptive/skewness_kurtosis_test.php 2006-12-31 16:29:54 UTC (rev 1021)
@@ -0,0 +1,62 @@
+<?
+ function preprocess () {
+ }
+
+ function calculate () {
+ $vars = "substitute (" . str_replace ("\n", "), substitute (", trim (getRK_val ("x"))) . ")";
+
+?>
+
+ require(moments)
+
+ rk.temp.options <- list (doskewness=<? getRK ("skewness"); ?>, dokurtosis=<? getRK ("kurtosis"); ?>, dolength=<? getRK ("length"); ?>, donacount=<? getRK ("nacount"); ?>)
+
+ rk.temp.results <- list ()
+ i=0; for (var in list (<? echo ($vars); ?>)) {
+ i = i+1
+ rk.temp.results[[i]] <- list ()
+ rk.temp.results[[i]]$object <- rk.get.description (var, is.substitute=TRUE)
+ if (rk.temp.options$doskewness) try (rk.temp.results[[i]]$skewness <- skewness (eval (var), <? getRK ("narm_skewness"); ?>))
+ if (rk.temp.options$dokurtosis) try (rk.temp.results[[i]]$kurtosis <- kurtosis (eval (var), <? getRK ("narm_kurtosis"); ?>))
+ 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)))))
+}
+
+
+<?
+ }
+ function printout () {
+?> cat ("<h1>Skewness and Kurtosis</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>")
+ if (rk.temp.options$doskewness) cat ("<td>Skewness</td>")
+ if (rk.temp.options$dokurtosis) cat ("<td>Kurtosis</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>")
+ if (rk.temp.options$doskewness) cat (paste ("<td>", rk.temp.results[[i]]$skewness,"</td>"))
+ if (rk.temp.options$dokurtosis) cat (paste ("<td>", rk.temp.results[[i]]$kurtosis,"</td>"))
+ cat ("</tr>")
+}
+ cat ("</tbody>")
+cat ("</table>")
+
+
+<?
+ }
+ function cleanup () {
+
+?>
+ rm (rk.temp.results)
+ rm (rk.temp.options)
+ rm (var)
+<?
+ }
+?>
\ No newline at end of file
Property changes on: trunk/rkward/rkward/plugins/20descriptive/skewness_kurtosis_test.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/20descriptive/skewness_kurtosis_test.xml
===================================================================
--- trunk/rkward/rkward/plugins/20descriptive/skewness_kurtosis_test.xml (rev 0)
+++ trunk/rkward/rkward/plugins/20descriptive/skewness_kurtosis_test.xml 2006-12-31 16:29:54 UTC (rev 1021)
@@ -0,0 +1,42 @@
+<!DOCTYPE rkplugin>
+
+<!-- This is the skewness and kurtosis plug-in-->
+
+<document>
+ <code file="skewness_kurtosis_test.php"/>
+ <dialog label="Skewness and Kurtosis">
+ <tabbook>
+ <tab label="Select Variables" >
+ <row>
+ <column>
+ <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>
+ <stretch/>
+ </column>
+ </row>
+ </tab>
+ <tab label="Options">
+ <frame label="Skewness">
+ <checkbox id="skewness" label="Skewness" value_unchecked="0" value="1" checked="true" />
+ <radio id="narm_skewness" label="Calculate Skewness with Missing Values">
+ <option value="na.rm = FALSE" label="FALSE"/>
+ <option value="na.rm = TRUE" label="TRUE"/>
+ </radio>
+ </frame>
+ <frame label="Kurtosis">
+ <checkbox id="kurtosis" label="Kurtosis" value_unchecked="0" value="1" checked="true" />
+ <radio id="narm_kurtosis" label="Calculate Kurtosis with Missing Values">
+ <option value="na.rm = FALSE" label="FALSE"/>
+ <option value="na.rm = TRUE" label="TRUE"/>
+ </radio>
+ </frame>
+ <checkbox id="length" label="Show Length" value_unchecked="0" value="1" checked="false" />
+ <checkbox id="nacount" label="Show Missing Values" value_unchecked="0" value="1" checked="false" />
+ </tab>
+ </tabbook>
+ </dialog>
+</document>
Property changes on: trunk/rkward/rkward/plugins/20descriptive/skewness_kurtosis_test.xml
___________________________________________________________________
Name: svn:executable
+ *
Modified: trunk/rkward/rkward/plugins/all.pluginmap
===================================================================
--- trunk/rkward/rkward/plugins/all.pluginmap 2006-12-31 15:36:28 UTC (rev 1020)
+++ trunk/rkward/rkward/plugins/all.pluginmap 2006-12-31 16:29:54 UTC (rev 1021)
@@ -20,6 +20,7 @@
<component type="standard" id="corr_matrix" file="corr_matrix/description.xml" label="Correlation Matrix" />
<component type="standard" id="simple_anova" file="simple_anova/description.xml" label="Simple Anova" />
<component type="standard" id="basic_statistics" file="uni1.2/description.xml" label="Basic Statistics" />
+ <component type="standard" id="skewness_kurtosis" file="20descriptive/skewness_kurtosis_test.xml" label="Skewness and Kurtosis" />
</components>
@@ -34,6 +35,7 @@
<entry component="corr_matrix" index="3"/>
<entry component="descriptive" index="0"/>
<entry component="simple_anova" index="4"/>
+ <entry component="skewness_kurtosis" index="5"/>
</menu>
<menu id="file" label="File">
<menu id="import" label="Import" index="4">
Modified: trunk/rkward/rkward/plugins/distributions/agostino_test.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/agostino_test.xml 2006-12-31 15:36:28 UTC (rev 1020)
+++ trunk/rkward/rkward/plugins/distributions/agostino_test.xml 2006-12-31 16:29:54 UTC (rev 1021)
@@ -12,7 +12,7 @@
<varselector id="vars"/>
</column>
<column>
- <frame label="The number of the selcted values must be between 3 and 5000">
+ <frame label="Variable(s)">
<varslot type="numeric" multi="true" id="x" source="vars" required="true" label="variable(s):"/>
</frame>
<stretch/>
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