[Depmix-commits] r197 - in trunk: R man

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

Author: ingmarvisser
Date: 2008-06-30 11:56:10 +0200 (Mon, 30 Jun 2008)
New Revision: 197

Modified:
   trunk/R/allGenerics.R
   trunk/man/responses.Rd
Log:
Added generic for simulate

Modified: trunk/R/allGenerics.R
===================================================================
--- trunk/R/allGenerics.R	2008-06-30 09:41:27 UTC (rev 196)
+++ trunk/R/allGenerics.R	2008-06-30 09:56:10 UTC (rev 197)
@@ -42,7 +42,7 @@
 
 setGeneric("forwardbackward", function(object, ...) standardGeneric("forwardbackward"))
 
-#setGeneric("simulate", function(object, ...) standardGeneric("simulate"))
+setGeneric("simulate", function(object,nsim=1,seed=NULL, ...) standardGeneric("simulate"))
 
 setGeneric("predict", function(object, ...) standardGeneric("predict"))
 

Modified: trunk/man/responses.Rd
===================================================================
--- trunk/man/responses.Rd	2008-06-30 09:41:27 UTC (rev 196)
+++ trunk/man/responses.Rd	2008-06-30 09:56:10 UTC (rev 197)
@@ -157,7 +157,9 @@
 	
 	res <- rgamma(1000,x)
 	
-	mod <- GLMresponse(res~x,family=Gamma())
+	# note that gamma needs proper starting values which are not
+	# provided by depmixS4 (even with them, this may produce warnings)
+	mod <- GLMresponse(res~x,family=Gamma(),pst=c(0.8,1/0.8))
 	
 	fit(mod)