[rkward-cvs] SF.net SVN: rkward: [1595] trunk/rkward/rkward/plugins/analysis/moments/ agostino_test.php

[tfry at users.sourceforge.net]

Revision: 1595
          http://svn.sourceforge.net/rkward/?rev=1595&view=rev
Author:   tfry
Date:     2007-03-15 16:43:10 -0700 (Thu, 15 Mar 2007)

Log Message:
-----------
Add comment

Modified Paths:
--------------
    trunk/rkward/rkward/plugins/analysis/moments/agostino_test.php

Modified: trunk/rkward/rkward/plugins/analysis/moments/agostino_test.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/moments/agostino_test.php	2007-03-15 23:32:32 UTC (rev 1594)
+++ trunk/rkward/rkward/plugins/analysis/moments/agostino_test.php	2007-03-15 23:43:10 UTC (rev 1595)
@@ -16,6 +16,7 @@
 	results[i, 'Variable Name'] <- rk.get.description (var, is.substitute=TRUE)
 	var <- eval (var)
 	results[i, 'Error'] <- tryCatch ({
+		# This is the core of the calculation
 		t <- agostino.test (var, alternative = "<? getRK ("alternative"); ?>")
 		results[i, 'skewness estimator (skew)'] <- t$statistic["skew"]
 		results[i, 'transformation (z)'] <- t$statistic["z"]


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