[Robkalman-commits] r73 - branches/robKalman_2012/pkg/robKalman/R

[noreply at r-forge.r-project.org]

Author: bspangl
Date: 2014-04-16 14:56:02 +0200 (Wed, 16 Apr 2014)
New Revision: 73

Modified:
   branches/robKalman_2012/pkg/robKalman/R/classEKF4.R
Log:
classEKF4.R fixed

Modified: branches/robKalman_2012/pkg/robKalman/R/classEKF4.R
===================================================================
--- branches/robKalman_2012/pkg/robKalman/R/classEKF4.R	2013-09-13 14:04:43 UTC (rev 72)
+++ branches/robKalman_2012/pkg/robKalman/R/classEKF4.R	2014-04-16 12:56:02 UTC (rev 73)
@@ -32,9 +32,9 @@
     A %*% S0 %*% t(A) + B %*% Q %*% t(B)
 }
 
-new("FunctionWithControl", 
-cEKFinitS <- function (initEq,
-                       controlInit = NULL, ...)
+cEKFinitS <- new("FunctionWithControl", 
+                 function (initEq,
+                           controlInit = NULL, ...)
 {
     ##  initEq ... object of S4 class 'SSinitEq'
     ##  controlInit ... control parameters, list
@@ -58,11 +58,11 @@
 }
 )
 
-new("FunctionWithControl", 
-cEKFpredS <- function (i, t,
-                       PredOrFilt,
-                       stateEq,
-                       controlPred = NULL, ...)
+cEKFpredS <- new("FunctionWithControl", 
+                 function (i, t,
+                           PredOrFilt,
+                           stateEq,
+                           controlPred = NULL, ...)
 {
     ##  i ... loop index
     ##  t ... time, t[i]
@@ -108,12 +108,12 @@
 }
 )
 
-new("FunctionWithControl", 
-cEKFcorrS <- function (i, t,
-                       Obs,
-                       PredOrFilt,
-                       obsEq,
-                       controlCorr = NULL, ...)
+cEKFcorrS <- new("FunctionWithControl", 
+                 function (i, t,
+                           Obs,
+                           PredOrFilt,
+                           obsEq,
+                           controlCorr = NULL, ...)
 {
     ##  i ... loop index
     ##  t ... time, t[i]