



Hi,I am trying to run a code with a series of nested for loops, here is a simplified version of it:
J<-seq(0,1,0.2)					D<-seq(0,1,0.2)					
for (x in 1:10)							{		for (j in 1:length(J))						{	 		for (d in 1:(length(D)-j+1))						{				x.end<-x*(1-J[j]-D[d])								print(x)				print(J[j])				print(D[d])				print(x.end)				}	}}
The problem is that whenever x.end should be zero it takes a small negative value really close to zero instead. Any idea of why this might be happening and how can I fix it?Thanks!
 		 	   		  
	[[alternative HTML version deleted]]

