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

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

Author: yumauehara
Date: 2016-10-04 06:33:35 +0200 (Tue, 04 Oct 2016)
New Revision: 473

Modified:
   pkg/yuima/R/sim.euler.R
Log:
added the description concerning pts and nts

Modified: pkg/yuima/R/sim.euler.R
===================================================================
--- pkg/yuima/R/sim.euler.R	2016-10-04 04:33:07 UTC (rev 472)
+++ pkg/yuima/R/sim.euler.R	2016-10-04 04:33:35 UTC (rev 473)
@@ -297,8 +297,11 @@
 ##                   rngamma=paste("rngamma(n, ", args[2], "*delta, ", args[3], ", ", args[4], ", ", args[5], "*delta, ", args[6], ")"),
                    rvgamma=paste("rvgamma(n, ", args[2], "*delta, ", args[3], ", ", args[4], ", ", args[5], "*delta,", args[6],")"),
 ##                   rstable=paste("rstable(n, ", args[2], ", ", args[3], ", ", args[4], ", ", args[5], ", ", args[6], ")")
-                   rstable=paste("rstable(n, ", args[2], ", ", args[3], ", ", args[4], "*delta^(1/",args[2],"), ", args[5], "*delta)")
+                   rstable=paste("rstable(n, ", args[2], ", ", args[3], ", ", args[4], "*delta^(1/",args[2],"), ", args[5], "*delta)"),
+                   rpts=paste("rpts(n, ", args[2], ", ", args[3], "*delta,", args[4],")"),
+                   rnts=paste("rnts(n, ", args[2], ", ", args[3], "*delta,", args[4], ", ", args[5], ", ", args[6],"*delta,", args[7], ")")
                    )
+                   ## added "rpts" and "rnts" by YU (2016/10/4)
       dummyList<-as.list(env)
       #print(str(dummyList))
       lgth.meas<-length(yuima at model@parameter at measure)