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

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

Author: hinohide
Date: 2011-04-08 03:16:10 +0200 (Fri, 08 Apr 2011)
New Revision: 148

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

Modified: pkg/yuima/R/asymptotic_term.R
===================================================================
--- pkg/yuima/R/asymptotic_term.R	2011-04-08 01:15:11 UTC (rev 147)
+++ pkg/yuima/R/asymptotic_term.R	2011-04-08 01:16:10 UTC (rev 148)
@@ -1283,7 +1283,7 @@
       for(k in 1:k.size){
         my.x <- rbind(my.x,tmp.x)
       }
-      est.points <- my.x[,seq(1,ncol(my.x),by=1)]
+      est.points <- my.x[,sample(seq(1,ncol(my.x),by=1),ncol(my.x),rep=FALSE)]
       tmp <- 0
       for(i in 1:ncol(est.points)){
         tmp <- tmp + gz_pi1(est.points[,i])