[rkward-cvs] SF.net SVN: rkward: [1436] trunk/rkward/rkward/plugins/distributions

[sjar at users.sourceforge.net]

Revision: 1436
          http://svn.sourceforge.net/rkward/?rev=1436&view=rev
Author:   sjar
Date:     2007-02-22 11:03:08 -0800 (Thu, 22 Feb 2007)

Log Message:
-----------
agostino_test moved to analysis/moment/

Removed Paths:
-------------
    trunk/rkward/rkward/plugins/distributions/agostino_test.php
    trunk/rkward/rkward/plugins/distributions/agostino_test.xml

Deleted: trunk/rkward/rkward/plugins/distributions/agostino_test.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/agostino_test.php	2007-02-22 19:02:01 UTC (rev 1435)
+++ trunk/rkward/rkward/plugins/distributions/agostino_test.php	2007-02-22 19:03:08 UTC (rev 1436)
@@ -1,47 +0,0 @@
-<?
-        function preprocess () {
-        }
-
-	function calculate () {
-	$vars = "substitute (" . str_replace ("\n", "), substitute (", trim (getRK_val ("x"))) . ")";
-
-?>
-require(moments)
-
-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$'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 <- agostino.test (eval (var), alternative = c("<? getRK ("alternative"); ?>"))
-		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 () {
-?>
-rk.header ("D'Agostino test for skewness in normally distributed data")
-rk.results (rk.temp.results)
-<?
-        }
-	function cleanup () {
-
-?>
-rm (rk.temp.results)
-rm (rk.temp.test)
-rm (rk.temp.vars)
-rm (var)
-<?
-        }
-?>
\ No newline at end of file

Deleted: trunk/rkward/rkward/plugins/distributions/agostino_test.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/agostino_test.xml	2007-02-22 19:02:01 UTC (rev 1435)
+++ trunk/rkward/rkward/plugins/distributions/agostino_test.xml	2007-02-22 19:03:08 UTC (rev 1436)
@@ -1,31 +0,0 @@
-<!DOCTYPE rkplugin>
-
-<!-- This is the D'Agostino test for skewness in normally distributed data -->
-
-<document>
-	<code file="agostino_test.php"/>
-	<dialog label="D'Agostino test for skewness in normally distributed data">
-		<tabbook>
-			<tab label="Select Variables" >
-				<row>
-					<column>
-						<varselector id="vars"/>
-					</column>
-					<column>
-						<varslot type="numeric" multi="true" id="x" source="vars" required="true" label="Variable(s):"/>
-						<stretch/>
-					</column>
-				</row>
-			</tab>
-			<tab label="Options">
-				<radio id="alternative" label="alternative hypothesis">
-					<option value="two.sided" label="two sided (default)" />
-					<option value="less" label="less" />
-					<option value="greater" label="greater" />
-				</radio>
-				<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" />
-			</tab>
-		</tabbook>
-	</dialog>
-</document>


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.