[rkward-cvs] SF.net SVN: rkward: [2122] branches/KDE4_port

[tfry at users.sourceforge.net]

Revision: 2122
          http://rkward.svn.sourceforge.net/rkward/?rev=2122&view=rev
Author:   tfry
Date:     2007-10-24 15:38:12 -0700 (Wed, 24 Oct 2007)

Log Message:
-----------
Small fix for moment plugin

Modified Paths:
--------------
    branches/KDE4_port/ChangeLog
    branches/KDE4_port/TODO_KDE4
    branches/KDE4_port/rkward/plugins/analysis/moments/moment.php

Modified: branches/KDE4_port/ChangeLog
===================================================================
--- branches/KDE4_port/ChangeLog	2007-10-24 22:27:29 UTC (rev 2121)
+++ branches/KDE4_port/ChangeLog	2007-10-24 22:38:12 UTC (rev 2122)
@@ -1,3 +1,4 @@
+- Analysis->Moments->Moment plugin did not use the order-parameter	TODO: backport rev. 2122
 - code completion in script editor shows icons for the different object types
 - settings dialog is now shown in "page list" mode
 - port to KDE 4			(TODO)

Modified: branches/KDE4_port/TODO_KDE4
===================================================================
--- branches/KDE4_port/TODO_KDE4	2007-10-24 22:27:29 UTC (rev 2121)
+++ branches/KDE4_port/TODO_KDE4	2007-10-24 22:38:12 UTC (rev 2122)
@@ -74,6 +74,8 @@
 rkspinbox:
 	- does it work at all? in both modes?
 	- seems to be at least partially broken
+	- does not work in real mode
+	- in int mode, does not update on typed input
 
 rkobjectlistview:
 	- do the tool-tips for the objects work?

Modified: branches/KDE4_port/rkward/plugins/analysis/moments/moment.php
===================================================================
--- branches/KDE4_port/rkward/plugins/analysis/moments/moment.php	2007-10-24 22:27:29 UTC (rev 2121)
+++ branches/KDE4_port/rkward/plugins/analysis/moments/moment.php	2007-10-24 22:38:12 UTC (rev 2122)
@@ -15,7 +15,7 @@
 	var <- eval (objects[[i]], envir=globalenv ())
 	results[i, 'Variable Name'] <- rk.get.description (objects[[i]], is.substitute=TRUE)
 
-	try (results[i, 'Moment'] <- moment (var, central = <? getRK ("central"); ?>, absolute = <? getRK ("absolute"); ?>, na.rm = <? getRK ("narm"); ?>))
+	try (results[i, 'Moment'] <- moment (var, order = <? getRK ("order"); ?>, central = <? getRK ("central"); ?>, absolute = <? getRK ("absolute"); ?>, na.rm = <? getRK ("narm"); ?>))
 <?	if (getRK_val ("length")) { ?>
 
 	results[i, 'Length'] <- length (var)
@@ -28,7 +28,7 @@
 function printout () {
 ?>
 rk.header ("Statistical Moment",
-	parameters=list ("Compute central moments", "<? getRK ("central"); ?>","Compute absolute moments", "<? getRK ("absolute"); ?>", "Remove missing values", "<? getRK ("narm"); ?>"))
+	parameters=list ("Order", "<? getRK ("order"); ?>, "Compute central moments", "<? getRK ("central"); ?>", "Compute absolute moments", "<? getRK ("absolute"); ?>", "Remove missing values", "<? getRK ("narm"); ?>"))
 rk.results (results)
 <?
 }


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