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

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

Author: ingmarvisser
Date: 2012-08-08 12:48:56 +0200 (Wed, 08 Aug 2012)
New Revision: 558

Modified:
   pkg/depmixS4/R/fb.R
Log:
- fixed bug in fb (testing for is.na instead of is.nan)

Modified: pkg/depmixS4/R/fb.R
===================================================================
--- pkg/depmixS4/R/fb.R	2012-08-06 09:08:31 UTC (rev 557)
+++ pkg/depmixS4/R/fb.R	2012-08-08 10:48:56 UTC (rev 558)
@@ -28,7 +28,7 @@
 	nt <- dim(B)[1]
 	ns <- ncol(init)
 	
-	if(na.allow) B <- replace(B,is.na(B) & !is.na(B),1)
+	if(na.allow) B <- replace(B,is.na(B) & !is.nan(B),1)
 
 	B <- apply(B,c(1,3),prod)