[rkward-cvs] SF.net SVN: rkward: [1728] trunk/rkward/rkward/plugins/analysis/outliers

[tfry at users.sourceforge.net]

Revision: 1728
          http://svn.sourceforge.net/rkward/?rev=1728&view=rev
Author:   tfry
Date:     2007-03-25 15:42:06 -0700 (Sun, 25 Mar 2007)

Log Message:
-----------
Oops... NAs were supposed to be omitted

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

Modified: trunk/rkward/rkward/plugins/analysis/outliers/chisq_out_test.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/outliers/chisq_out_test.php	2007-03-25 22:27:59 UTC (rev 1727)
+++ trunk/rkward/rkward/plugins/analysis/outliers/chisq_out_test.php	2007-03-25 22:42:06 UTC (rev 1728)
@@ -20,7 +20,7 @@
 
 	var <- na.omit (var) 	# omit NAs for all further calculations
 <? 	} else { ?>
-	var <- eval (vars[[i]], envir=globalenv ())
+	var <- na.omit (eval (vars[[i]], envir=globalenv ()))
 <?	} ?>
 
 	results[i, 'Error'] <- tryCatch ({

Modified: trunk/rkward/rkward/plugins/analysis/outliers/dixon_test.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/outliers/dixon_test.php	2007-03-25 22:27:59 UTC (rev 1727)
+++ trunk/rkward/rkward/plugins/analysis/outliers/dixon_test.php	2007-03-25 22:42:06 UTC (rev 1728)
@@ -20,7 +20,7 @@
 
 	var <- na.omit (var) 	# omit NAs for all further calculations
 <? 	} else { ?>
-	var <- eval (vars[[i]], envir=globalenv ())
+	var <- na.omit (eval (vars[[i]], envir=globalenv ()))
 <?	} ?>
 
 	results[i, 'Error'] <- tryCatch ({

Modified: trunk/rkward/rkward/plugins/analysis/outliers/grubbs_test.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/outliers/grubbs_test.php	2007-03-25 22:27:59 UTC (rev 1727)
+++ trunk/rkward/rkward/plugins/analysis/outliers/grubbs_test.php	2007-03-25 22:42:06 UTC (rev 1728)
@@ -20,7 +20,7 @@
 
 	var <- na.omit (var) 	# omit NAs for all further calculations
 <? 	} else { ?>
-	var <- eval (vars[[i]], envir=globalenv ())
+	var <- na.omit (eval (vars[[i]], envir=globalenv ()))
 <?	} ?>
 
 	results[i, 'Error'] <- tryCatch ({

Modified: trunk/rkward/rkward/plugins/analysis/outliers/outlier.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/outliers/outlier.php	2007-03-25 22:27:59 UTC (rev 1727)
+++ trunk/rkward/rkward/plugins/analysis/outliers/outlier.php	2007-03-25 22:42:06 UTC (rev 1728)
@@ -20,7 +20,7 @@
 
 	var <- na.omit (var) 	# omit NAs for all further calculations
 <? 	} else { ?>
-	var <- eval (vars[[i]], envir=globalenv ())
+	var <- na.omit (eval (vars[[i]], envir=globalenv ()))
 <?	} ?>
 
 	results[i, 'Error'] <- tryCatch ({


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