[Depmix-commits] r521 - pkg/depmixS4/R

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

Author: ingmarvisser
Date: 2012-06-15 15:27:09 +0200 (Fri, 15 Jun 2012)
New Revision: 521

Modified:
   pkg/depmixS4/R/EM.R
Log:
Added classification argument to em.depmix

Modified: pkg/depmixS4/R/EM.R
===================================================================
--- pkg/depmixS4/R/EM.R	2012-06-15 12:19:38 UTC (rev 520)
+++ pkg/depmixS4/R/EM.R	2012-06-15 13:27:09 UTC (rev 521)
@@ -157,10 +157,14 @@
 }
 
 # em for hidden markov models
-em.depmix <- function(object,maxit=100,tol=1e-8,crit="relative",random.start=TRUE,verbose=FALSE,...) {
+em.depmix <- function(object,maxit=100,tol=1e-8,crit="relative",random.start=TRUE,verbose=FALSE, classification=c("soft","hard"),...) {
 	
 	if(!is(object,"depmix")) stop("object is not of class 'depmix'")
 	
+	clsf <- match.arg(classification)
+	
+	clsf="soft"
+	
 	ns <- nstates(object)
 	
 	ntimes <- ntimes(object)