small negative values instead of zeros in nested loop

-----Original Message-----
From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-project.org]
On Behalf Of Cristina Fdez. Arag?n
Sent: Tuesday, September 25, 2012 4:40 PM
To: r-help at r-project.org
Subject: [R] small negative values instead of zeros in nested loop





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!