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

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

Author: lorenzo
Date: 2018-05-13 11:46:01 +0200 (Sun, 13 May 2018)
New Revision: 640

Modified:
   pkg/yuima/R/simulateMultiProcess.R
Log:
Fixed Bugs simulation yuima.law

Modified: pkg/yuima/R/simulateMultiProcess.R
===================================================================
--- pkg/yuima/R/simulateMultiProcess.R	2018-04-12 07:28:21 UTC (rev 639)
+++ pkg/yuima/R/simulateMultiProcess.R	2018-05-13 09:46:01 UTC (rev 640)
@@ -44,7 +44,7 @@
       randomGenerator<-object at model@measure$df
       if(samp at regular){
         tForMeas<-samp at delta
-        NumbIncr<-samp at n
+        NumbIncr<-samp at n[1]
         if(missing(true.parameter)){
           eval(parse(text= paste0("measureparam$",
                                   object at model@time.variable," <- tForMeas",collapse="")))
@@ -70,7 +70,7 @@
              object at model@time.variable," <- tForMeas",collapse="")))
 
           }
-          Noise<- rand(object = randomGenerator, n=1, param=measureparam)
+          Noise<- rand(object = randomGenerator, n=samp at n[1], param=measureparam)
         }
         Noise<-sapply(X=tForMeas, FUN=my.InternalFunforLevy,
               randomGenerator=randomGenerator,