[Depmix-commits] r227 - trunk/R

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

Author: maarten
Date: 2008-09-07 23:10:51 +0200 (Sun, 07 Sep 2008)
New Revision: 227

Modified:
   trunk/R/responseGLMBINOM.R
Log:
- fixed bug in dens and logDens methods of BINOMresponse (missing size argument)

Modified: trunk/R/responseGLMBINOM.R
===================================================================
--- trunk/R/responseGLMBINOM.R	2008-09-05 11:55:08 UTC (rev 226)
+++ trunk/R/responseGLMBINOM.R	2008-09-07 21:10:51 UTC (rev 227)
@@ -14,7 +14,7 @@
 			dbinom(x=object at y[,1],size=rowSums(object at y),prob=predict(object),log=TRUE)
 		} else {
 			if(!NCOL(object at y==1)) stop("not a valid response matrix for BINOMresponse")
-			dbinom(x=object at y,prob=predict(object),log=TRUE)
+			dbinom(x=object at y,size=1,prob=predict(object),log=TRUE)
 		}
 	}
 )
@@ -25,7 +25,7 @@
 			dbinom(x=object at y[,1],size=rowSums(object at y),prob=predict(object),log=log)
 		} else {
 			if(!NCOL(object at y==1)) stop("not a valid response matrix for BINOMresponse")
-			dbinom(x=object at y,prob=predict(object),log=log)
+			dbinom(x=object at y,size=1,prob=predict(object),log=log)
 		}
 	}
 )