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

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

Author: kamatani
Date: 2011-07-09 11:28:41 +0200 (Sat, 09 Jul 2011)
New Revision: 158

Modified:
   pkg/yuima/R/asymptotic_term.R
Log:
bug fixed asympt_term

Modified: pkg/yuima/R/asymptotic_term.R
===================================================================
--- pkg/yuima/R/asymptotic_term.R	2011-07-08 13:26:46 UTC (rev 157)
+++ pkg/yuima/R/asymptotic_term.R	2011-07-09 09:28:41 UTC (rev 158)
@@ -1562,7 +1562,7 @@
       
       tmp <- 0
       for(i in 1:20){
-        tmp <- tmp + gz_p2(est.points[,i])
+        tmp <- tmp + gz_pi1(est.points[,i])
       }
 
 	tmp <- tmp/20