[R] density plot of simulated exponential distributed data

[Juanjuan Chai]

Hi all,

I tried to plot the density curve using the data from simulation. I am  
sure that the data should be exponentially distributed, but the plot  
of density curve always starts from (0,0) which is not the case for  
exponential distribution. Is there any way around this, to keep the  
curve dropping at 0?

Thanks.

The following are the codes I tested:

data <- vector()
rate <- 3
i <- 1
for(i in 1:1000){
	r <- runif(1)
	data[i] <- log(1-r)/(-rate)
	i <- i+1
}
plot(density(data))

-JJ