[rkward-cvs] SF.net SVN: rkward: [1519] trunk/rkward/rkward/plugins/analysis/TESTS

[sjar at users.sourceforge.net]

Revision: 1519
          http://svn.sourceforge.net/rkward/?rev=1519&view=rev
Author:   sjar
Date:     2007-03-01 14:50:48 -0800 (Thu, 01 Mar 2007)

Log Message:
-----------
fixes by using local({ })

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/analysis/TESTS/PP_test.php
    trunk/rkward/rkward/plugins/analysis/TESTS/mood_test.php

Modified: trunk/rkward/rkward/plugins/analysis/TESTS/PP_test.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/TESTS/PP_test.php	2007-03-01 10:25:05 UTC (rev 1518)
+++ trunk/rkward/rkward/plugins/analysis/TESTS/PP_test.php	2007-03-01 22:50:48 UTC (rev 1519)
@@ -10,17 +10,19 @@
 
 rk.temp.objects <- list (<? echo ($vars); ?>)
 rk.temp.results <- data.frame ('Variable Name'=rep (NA, length (rk.temp.objects)), check.names=FALSE)
-i=0;
-for (var in rk.temp.objects) {
-	i = i+1
-	rk.temp.results$'Variable Name'[i] <- rk.get.description (var, is.substitute=TRUE)
-	try ({
-		rk.temp.t <- PP.test (eval (var), lshort = <? getRK ("lshort"); ?>)
-		rk.temp.results$'Dickey-Fuller'[i] <- rk.temp.t$statistic
-		rk.temp.results$'Truncation lag parameter'[i] <- rk.temp.t$parameter
-		rk.temp.results$'p-value'[i] <- rk.temp.t$p.value
-	})
-}
+local ({
+	i=0;
+	for (var in rk.temp.objects) {
+		i = i+1
+		rk.temp.results$'Variable Name'[i] <<- rk.get.description (var, is.substitute=TRUE)
+		try ({
+			rk.temp.t <- PP.test (eval (var), lshort = <? getRK ("lshort"); ?>)
+			rk.temp.results$'Dickey-Fuller'[i] <<- rk.temp.t$statistic
+			rk.temp.results$'Truncation lag parameter'[i] <<- rk.temp.t$parameter
+			rk.temp.results$'p-value'[i] <<- rk.temp.t$p.value
+		})
+	}
+})
 <?
         }
 

Modified: trunk/rkward/rkward/plugins/analysis/TESTS/mood_test.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/TESTS/mood_test.php	2007-03-01 10:25:05 UTC (rev 1518)
+++ trunk/rkward/rkward/plugins/analysis/TESTS/mood_test.php	2007-03-01 22:50:48 UTC (rev 1519)
@@ -19,7 +19,7 @@
 
 rk.results (list (
 	'Variables'=rk.get.description (rk.temp.x, rk.temp.y, is.substitute=TRUE),
-	'Z'=rk.temp$statistic["Z"],
+	'Z'=rk.temp$statistic,
 	'p-value'=rk.temp$p.value,
 	'Alternative Hypothesis'=rk.describe.alternative(rk.temp)
 	))


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