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

[sjar at users.sourceforge.net]

Revision: 1019
          http://svn.sourceforge.net/rkward/?rev=1019&view=rev
Author:   sjar
Date:     2006-12-30 16:04:35 -0800 (Sat, 30 Dec 2006)

Log Message:
-----------
some parts of code removed to guarantee functionality

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/distributions/pearson_test.php
    trunk/rkward/rkward/plugins/distributions/pearson_test.xml

Modified: trunk/rkward/rkward/plugins/distributions/pearson_test.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/pearson_test.php	2006-12-30 23:44:55 UTC (rev 1018)
+++ trunk/rkward/rkward/plugins/distributions/pearson_test.php	2006-12-31 00:04:35 UTC (rev 1019)
@@ -4,7 +4,6 @@
 
 	function calculate () {
 	$vars = "substitute (" . str_replace ("\n", "), substitute (", trim (getRK_val ("x"))) . ")";
-	$nclasses = getRK_val ("nclasses");
 	$adjust =  getRK_val ("adjust");
 
 ?>
@@ -17,7 +16,7 @@
 	i = i+1
 	rk.temp.results[[i]] <- list ()
 	rk.temp.results[[i]]$object <- rk.get.description (var, is.substitute=TRUE)
-	rk.temp.results[[i]]$pearson_test <- pearson.test (eval (var), n.classes = <? echo $nclasses ?>, <? echo $adjust ?> )
+	rk.temp.results[[i]]$pearson_test <- pearson.test (eval (var), <? echo $adjust ?> )
 	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)))))
 }

Modified: trunk/rkward/rkward/plugins/distributions/pearson_test.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/pearson_test.xml	2006-12-30 23:44:55 UTC (rev 1018)
+++ trunk/rkward/rkward/plugins/distributions/pearson_test.xml	2006-12-31 00:04:35 UTC (rev 1019)
@@ -21,7 +21,6 @@
 			</tab>
 			<tab label="Options">
 				<frame>
-				<input id="nclasses" label="Number of Classes" initial="ceiling(2 * (n^(2/5)))" />
 				<radio id="adjust" label="p-value from chi^2-distribution from:">
 					<option value="adjust = TRUE" label="n.classes-3 degrees of freedom" />
 					<option value="adjust = FALSE" label="n.classes-1 degrees of freedom" />


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