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

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

Author: eguchi
Date: 2020-04-27 09:16:17 +0200 (Mon, 27 Apr 2020)
New Revision: 730

Modified:
   pkg/yuima/R/adaBayes.R
Log:
modified

Modified: pkg/yuima/R/adaBayes.R
===================================================================
--- pkg/yuima/R/adaBayes.R	2020-03-06 03:42:05 UTC (rev 729)
+++ pkg/yuima/R/adaBayes.R	2020-04-27 07:16:17 UTC (rev 730)
@@ -266,17 +266,18 @@
                   }
                   
                   #if(sum(x_n<lowerLimit)==0 & sum(x_n>upperLimit)==0){
-                    q_n <- dnorm(x_n,x_c,sqrt(vcov))
+                    #q_n <- dnorm(x_n,x_c,sqrt(vcov))
                     p_n <- p(x_n)
-                    q_c <- dnorm(x_c,x_n,sqrt(vcov))
+                    #q_c <- dnorm(x_c,x_n,sqrt(vcov))
                     #u <- runif(1)
                     #a <- (p_n*q_c)/(p_c*q_n)
                     u <- log(runif(1))
-                    a <- p_n-p_c+log(q_c/q_n)
+                    #a <- p_n-p_c+log(q_c/q_n)
+                    a <- p_n-p_c
                     #asd[(i+1),2:3] <- c(p_c, p_n)
                     if(u<a){
                       p_c <- p_n
-                      q_c <- q_n
+                      #q_c <- q_n
                       x_c <- x_n
                     }
                   #}