[Yuima-commits] r69 - pkg/yuima/man

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

Author: hinohide
Date: 2010-03-27 05:15:24 +0100 (Sat, 27 Mar 2010)
New Revision: 69

Modified:
   pkg/yuima/man/quasi-likelihood.Rd
Log:
minor bug fix

Modified: pkg/yuima/man/quasi-likelihood.Rd
===================================================================
--- pkg/yuima/man/quasi-likelihood.Rd	2010-03-24 05:07:13 UTC (rev 68)
+++ pkg/yuima/man/quasi-likelihood.Rd	2010-03-27 04:15:24 UTC (rev 69)
@@ -50,7 +50,7 @@
 ysamp <- setSampling(Terminal=(n)^(1/3), n=n) 
 yuima <- setYuima(model=ymodel, sampling=ysamp)
 set.seed(123)
-yuima <- simulate(yuima, xinit=1, true.parameter=c(0.3, 0.1))
+yuima <- simulate(yuima, xinit=1, true.parameter=list(theta2=0.3,theta1=0.1))
 QL <- ql(yuima, 0.8, 0.7, h=1/((n)^(2/3)))
 QL
 
@@ -100,7 +100,7 @@
 set.seed(123)
 
 ##xinit=c(x1, x2) #true.parameter=c(theta2.1, theta2.2, theta1.1, theta1.2)
-yuima <- simulate(yuima, xinit=c(1, 1), true.parameter=c(0.5, 0.3, 0.6, 0.2))
+yuima <- simulate(yuima, xinit=c(1, 1), true.parameter=list(theta2.1=0.5, theta2.2=0.3, theta1.1=0.6,theta1.2=0.2))
 
 theta2 <- c(0.8, 0.2) #c(theta2.1, theta2.2)
 theta1 <- c(0.7, 0.1) #c(theta1.1, theta1.2)
@@ -142,7 +142,7 @@
 ysamp <- setSampling(Terminal=(n)^(1/3), n=n) 
 yuima <- setYuima(model=ymodel, sampling=ysamp)
 set.seed(123)
-yuima <- simulate(yuima, xinit=1, true.parameter=c(0.5, 0.8))
+yuima <- simulate(yuima, xinit=1, true.parameter=list(theta2=0.5, theta1=0.8))
 #0.3,0.1
 h <- 1/((n)^(2/3))