[Yuima-commits] r60 - pkg/yuima/R

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

Author: hirokimasuda
Date: 2010-01-20 09:55:35 +0100 (Wed, 20 Jan 2010)
New Revision: 60

Modified:
   pkg/yuima/R/rng.R
Log:
correcting a small bug in rng file

Modified: pkg/yuima/R/rng.R
===================================================================
--- pkg/yuima/R/rng.R	2010-01-20 06:18:12 UTC (rev 59)
+++ pkg/yuima/R/rng.R	2010-01-20 08:55:35 UTC (rev 60)
@@ -157,7 +157,7 @@
 	if( gamma <= 0 )
     stop("gamma must be positive value.")
 
-	dens <- delta*e^(delta*gamma)*(x^(-3/2))*exp(-((delta^2)/x+x*gamma^2)/2)/sqrt(2*pi)
+	dens <- delta*exp(delta*gamma)*(x^(-3/2))*exp(-((delta^2)/x+x*gamma^2)/2)/sqrt(2*pi)
 	dens
 }