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

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

Author: ruckdeschel
Date: 2013-03-06 10:20:08 +0100 (Wed, 06 Mar 2013)
New Revision: 58

Modified:
   branches/robKalman_2012/pkg/robKalman/R/SSM-classes.R
Log:
accessors und generating function fuer SSM committed

Modified: branches/robKalman_2012/pkg/robKalman/R/SSM-classes.R
===================================================================
--- branches/robKalman_2012/pkg/robKalman/R/SSM-classes.R	2013-02-28 14:26:43 UTC (rev 57)
+++ branches/robKalman_2012/pkg/robKalman/R/SSM-classes.R	2013-03-06 09:20:08 UTC (rev 58)
@@ -41,19 +41,20 @@
 setMethod("obsEq", "SSM", function(object) object at obsEq)
 setMethod("initEq", "SSM", function(object) object at initEq)
 
-setMethod("F", "SSstateEq", function(object) object at F)
-setMethod("F", "SSM", function(object) statesEq(object)@F)
-setMethod("Q", "SSstateEq", function(object) object at Q)
-setMethod("Q", "SSM", function(object) statesEq(object)@Q)
-setMethod("Z", "SSstateEq", function(object) object at Z)
-setMethod("Z", "SSM", function(object) obsEq(object)@Z)
-setMethod("V", "SSstateEq", function(object) object at V)
-setMethod("V", "SSM", function(object) obsEq(object)@V)
+setMethod("F", "SSstateEq", function(object) object at Ffct)
+setMethod("F", "SSM", function(object) statesEq(object)@Ffct)
+setMethod("Q", "SSstateEq", function(object) object at Qfct)
+setMethod("Q", "SSM", function(object) statesEq(object)@Qfct)
+setMethod("Z", "SSstateEq", function(object) object at Zfct)
+setMethod("Z", "SSM", function(object) obsEq(object)@Zfct)
+setMethod("V", "SSstateEq", function(object) object at Vfct)
+setMethod("V", "SSM", function(object) obsEq(object)@Vfct)
 setMethod("a0", "SSstateEq", function(object) object at a0)
 setMethod("a0", "SSM", function(object) initEq(object)@a0)
 setMethod("Sigma0", "SSinitEq", function(object) object at Sigma0)
 setMethod("Sigma0", "SSM", function(object) initEq(object)@Sigma0)
 
+if(FALSE){
 setMethod("createF", "matrix", function(object, R, Exo){
   
-})
\ No newline at end of file
+})}