[Depmix-commits] r131 - trunk/R

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

Author: maarten
Date: 2008-05-20 18:41:14 +0200 (Tue, 20 May 2008)
New Revision: 131

Modified:
   trunk/R/fb.R
Log:


Modified: trunk/R/fb.R
===================================================================
--- trunk/R/fb.R	2008-05-20 15:16:27 UTC (rev 130)
+++ trunk/R/fb.R	2008-05-20 16:41:14 UTC (rev 131)
@@ -19,7 +19,7 @@
 	# NOTE: xi[t,i,j] = P(S[t] = j & S[t+1] = i)
 	
 	
-	B <- apply(B,c(1,3),prod)
+	if(length(dim(B)) == 3) B <- apply(B,c(1,3),prod)
 	
 	nt <- nrow(B)	
 	ns <- ncol(init)