[rkward-cvs] SF.net SVN: rkward: [1568] trunk/rkward/rkward/plugins/analysis/outliers/ chisq_out_test.php

[sjar at users.sourceforge.net]

Revision: 1568
          http://svn.sourceforge.net/rkward/?rev=1568&view=rev
Author:   sjar
Date:     2007-03-12 16:25:42 -0700 (Mon, 12 Mar 2007)

Log Message:
-----------
handling of NAs with no.omit

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/analysis/outliers/chisq_out_test.php

Modified: trunk/rkward/rkward/plugins/analysis/outliers/chisq_out_test.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/outliers/chisq_out_test.php	2007-03-12 22:56:11 UTC (rev 1567)
+++ trunk/rkward/rkward/plugins/analysis/outliers/chisq_out_test.php	2007-03-12 23:25:42 UTC (rev 1568)
@@ -16,8 +16,8 @@
 		i = i+1
 		rk.temp.results$'Variable Name'[i] <<- rk.get.description (var, is.substitute=TRUE)
 		try ({
-			rk.temp.t <- chisq.out.test (eval (var), opposite = <? getRK ("opposite"); ?>, variance = var (eval 	(var)))
-			rk.temp.variance <- var (eval (var))
+			rk.temp.t <- chisq.out.test (na.omit(eval (var)), opposite = <? getRK ("opposite"); ?>, variance = var (na.omit(eval (var))))
+			rk.temp.variance <- var (na.omit(eval (var)))
 			rk.temp.results$'X-squared'[i] <<- rk.temp.t$statistic
 			rk.temp.results$'p-value'[i] <<- rk.temp.t$p.value
 			rk.temp.results$'Alternative Hypothesis'[i] <<- rk.describe.alternative(rk.temp.t)


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