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

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

Author: dashunka
Date: 2012-10-29 14:04:38 +0100 (Mon, 29 Oct 2012)
New Revision: 48

Modified:
   branches/robKalman_2012/pkg/robKalman/R/SSM-classes.R
Log:


Modified: branches/robKalman_2012/pkg/robKalman/R/SSM-classes.R
===================================================================
--- branches/robKalman_2012/pkg/robKalman/R/SSM-classes.R	2012-10-29 12:36:16 UTC (rev 47)
+++ branches/robKalman_2012/pkg/robKalman/R/SSM-classes.R	2012-10-29 13:04:38 UTC (rev 48)
@@ -6,11 +6,8 @@
   Exo.obs.ret <- if(!is.null(Exo.obs)) createExo(Exo.obs) else NULL
   Exo.ini.ret <- if(!is.null(Exo.ini)) createExo(Exo.ini)  else NULL
 
-  Fret <- createF(F,R)  
-  Zret <- createZ(Z,T)
-  
-#   Fret <- createF(F,R, Exo.state.ret)  
-#   Zret <- createZ(Z,T, Exo.state.obs)
+  Fret <- createF(F,R, Exo.state.ret)  
+  Zret <- createZ(Z,T, Exo.state.obs)
   Qret <- createQ(Q)
   Vret <- createV(V)
   
@@ -39,5 +36,5 @@
 setMethod("Sigma0", "SSM", function(object) initEq(object)@Sigma0)
 
 setMethod("createF", "matrix", function(object, R, Exo){
-
+  
 })
\ No newline at end of file