[Forensim-help] r182 - pkg/R

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

Author: hindahaned
Date: 2009-11-20 13:42:26 +0100 (Fri, 20 Nov 2009)
New Revision: 182

Modified:
   pkg/R/likelihood.R
Log:
comment add

Modified: pkg/R/likelihood.R
===================================================================
--- pkg/R/likelihood.R	2009-11-20 09:24:11 UTC (rev 181)
+++ pkg/R/likelihood.R	2009-11-20 12:42:26 UTC (rev 182)
@@ -71,7 +71,7 @@
 		#ui is the matrix giving all possible  numbers of copies of allele Ai in the stain
 		#ui[,i]: number of alleles of type Ai, there are c possible types
 	    ui <- matrix(0, nrow = nrow(ri), ncol = c)
-	    ui <- ri + 1
+	    ui <- ri + 1#+1 because one is already observed
 		
 	    if (x == 0)
 		{