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

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

Author: bspangl
Date: 2013-02-04 19:33:41 +0100 (Mon, 04 Feb 2013)
New Revision: 52

Modified:
   branches/robKalman_2012/pkg/robKalman/R/allClass.R
Log:
Aenderungen in allClass.R committed

Modified: branches/robKalman_2012/pkg/robKalman/R/allClass.R
===================================================================
--- branches/robKalman_2012/pkg/robKalman/R/allClass.R	2013-02-04 18:23:26 UTC (rev 51)
+++ branches/robKalman_2012/pkg/robKalman/R/allClass.R	2013-02-04 18:33:41 UTC (rev 52)
@@ -42,6 +42,8 @@
                c("Distribution","NULL")
                )
 
+
+### SSM definitions
 setClass("SSstateEq",
           representation = representation(Ffct = "FunctionWithControl",
                                           Qfct = "FunctionWithControl",
@@ -73,13 +75,15 @@
                                    inX = "logical"))
 
 setClass("SSObs",
-          representation = representation(Y = "numeric", ### soll Matrix bleiben?
+          representation = representation(Y = "matrix", ### soll Matrix bleiben?
                                           origData = "ANY"),
-          prototype = prototype(Y = 1,
+          prototype = prototype(Y = as.matrix(1),
                                 origData = 1)
 
  )
 
+
+### SSM procedures
 setClass("SSFilter", representation = representation(initStep = "FunctionWithControl",
                                     prepStep = "OptionalFunctionWithControl",
                                     predStep = "FunctionWithControl",
@@ -144,6 +148,8 @@
                c("SSSmoothed","NULL")
                )
 
+
+### User interfaces
 setClass("SSInput", representation = representation(steps = "SSClassOrRobFilter",
                                                    model = "SSM",
                                                    obs = "SSObs",
@@ -160,6 +166,8 @@
 
 setClass("SSrecResult", representation = representation(input="SSInput", output="SSOutput"))
 
+
+### Simulation
 setClass("SSISimulation", representation = representation(name = "character",
            obs = "array", states = "array"))
 setClass("SSCSimulation", representation = representation(radius = "numeric"),
@@ -175,9 +183,12 @@
 setClass("SSContSimulation", representation = representation(SimList = "SSSimList"),
           contains = "SSSimulation")
 
+
+### Itermediate return values
 ## ACHTUNG: entgegen Darstellung am 18.09.12 _nicht_ Rückgabetyp
 ###  von createF createV,... sondern Rückgabetyp der Funktion, die
 ##   in createF etc zurückgegeben wird
+
 setClass("SSretValueF", representation = representation(x1 = "numeric",
                            Fmat = "matrix", Rmat = "matrix", t = "numeric",
                            x0 = "numeric", v = "numeric", u = "numeric",