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

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

Author: yumauehara
Date: 2017-09-08 10:50:24 +0200 (Fri, 08 Sep 2017)
New Revision: 625

Modified:
   pkg/yuima/R/rng.R
Log:
fixed a bug in dGIG and dIG

Modified: pkg/yuima/R/rng.R
===================================================================
--- pkg/yuima/R/rng.R	2017-09-08 08:44:24 UTC (rev 624)
+++ pkg/yuima/R/rng.R	2017-09-08 08:50:24 UTC (rev 625)
@@ -47,8 +47,6 @@
 ## Generalized inverse Gaussian
 
 rGIG<-function(x,lambda,delta,gamma){
-    if(x <= 0)
-        stop("x must be positive")
     if((delta < 0)||(gamma<0)){
         stop("delta and gamma must be nonnegative.")
     }
@@ -78,6 +76,8 @@
 }
 
 dGIG<-function(x,lambda,delta,gamma){
+    if(x <= 0)
+    stop("x must be positive")
     if((delta < 0)||(gamma<0)){
         stop("delta and gamma must be nonnegative.")
     }