[Depmix-commits] r56 - trunk

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

Author: maarten
Date: 2008-03-06 18:34:46 +0100 (Thu, 06 Mar 2008)
New Revision: 56

Modified:
   trunk/depmix-test3EM3.R
Log:


Modified: trunk/depmix-test3EM3.R
===================================================================
--- trunk/depmix-test3EM3.R	2008-03-06 17:32:42 UTC (rev 55)
+++ trunk/depmix-test3EM3.R	2008-03-06 17:34:46 UTC (rev 56)
@@ -3,7 +3,7 @@
 source("depmixS4.R")
 source("classes.R")
 source("hmModel.R")
-source("trGLM.r")
+source("fithmModel.R")
 source("lystig.R")
 source("fb.r")
 source("viterbi.r")
@@ -33,7 +33,7 @@
 #mod at trModels[[1]]@parameters$coefficients[,2] <- c(-2.153550,.01)
 #mod at trModels[[2]]@parameters$coefficients[,2] <- c(2.389200,0)
 
-maxit=100
-tol=1e-5
+#fmod <- em(mod,verbose=T)
 
-fmod <- em(mod,verbose=T)
\ No newline at end of file
+fixed <- getpars(mod,"fixed")
+fdmod <- fit(mod,fixed=fixed)
\ No newline at end of file