[Forensim-help] r165 - pkg/R

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

Author: hindahaned
Date: 2009-10-31 18:17:47 +0100 (Sat, 31 Oct 2009)
New Revision: 165

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

Modified: pkg/R/classes_constructors.R
===================================================================
--- pkg/R/classes_constructors.R	2009-10-31 17:11:55 UTC (rev 164)
+++ pkg/R/classes_constructors.R	2009-10-31 17:17:47 UTC (rev 165)
@@ -330,6 +330,7 @@
 		#print(poptemp)
 		for(p in popfac)
 		{
+			#print(N[p])
 			if(N[p]!=0)
 			{
 				samp1 <- sample(indID[popind == p  ],N[p],replace=FALSE)#chosen profiles to ssimulate the mixture