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

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

Author: phoenix844
Date: 2021-12-16 20:20:38 +0100 (Thu, 16 Dec 2021)
New Revision: 770

Modified:
   pkg/yuima/R/ae.R
Log:
Update ae.R

Modified: pkg/yuima/R/ae.R
===================================================================
--- pkg/yuima/R/ae.R	2021-12-15 22:36:01 UTC (rev 769)
+++ pkg/yuima/R/ae.R	2021-12-16 19:20:38 UTC (rev 770)
@@ -387,21 +387,21 @@
     
   } else {
     
-    test <- parse(text = diffusion)
+    # test <- parse(text = diffusion)
+    # 
+    # env  <- AE$par
+    # env[[AE$eps.var]] <- 0
+    # for(z in AE$z) 
+    #   env[[z]] <- runif(n = 100, min = -999, max = 999)
+    # 
+    # is.ok <- sapply(test, function(expr){
+    #   all(eval(expr, env)==0)  
+    # })
+    # 
+    # if(!all(is.ok)){
+    #   stop('diffusion must vanish when evaluated at epsilon = 0')
+    # }
     
-    env  <- AE$par
-    env[[AE$eps.var]] <- 0
-    for(z in AE$z) 
-      env[[z]] <- runif(n = 100, min = -999, max = 999)
-    
-    is.ok <- sapply(test, function(expr){
-      all(eval(expr, env)==0)  
-    })
-    
-    if(!all(is.ok)){
-      stop('diffusion must vanish when evaluated at epsilon = 0')
-    }
-    
   }
   
   # building V...