[Yuima-commits] r175 - in pkg/yuima: R man

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

Author: iacus
Date: 2011-08-08 17:38:03 +0200 (Mon, 08 Aug 2011)
New Revision: 175

Modified:
   pkg/yuima/R/phi.test.R
   pkg/yuima/man/phi.test.Rd
Log:
update phi.test

Modified: pkg/yuima/R/phi.test.R
===================================================================
--- pkg/yuima/R/phi.test.R	2011-08-08 14:31:14 UTC (rev 174)
+++ pkg/yuima/R/phi.test.R	2011-08-08 15:38:03 UTC (rev 175)
@@ -23,8 +23,8 @@
      H1 <- coef(qmle(yuima, ...))
         est <- TRUE
     }
-	g0 <- exp(quasiloglvec(yuima=yuima, param=H0, print=print, env))
-	g1 <- exp(quasiloglvec(yuima=yuima, param=H1, print=print, env))
+	g0 <- quasiloglvec(yuima=yuima, param=H0, print=print, env)
+	g1 <- quasiloglvec(yuima=yuima, param=H1, print=print, env)
     y <- exp(g1-g0)
     div <- mean(phi(y), na.rm=TRUE)
     stat <- 2*sum(phi(y), na.rm=TRUE)

Modified: pkg/yuima/man/phi.test.Rd
===================================================================
--- pkg/yuima/man/phi.test.Rd	2011-08-08 14:31:14 UTC (rev 174)
+++ pkg/yuima/man/phi.test.Rd	2011-08-08 15:38:03 UTC (rev 175)
@@ -27,7 +27,7 @@
 \author{The YUIMA Project Team}
 \examples{
 model<- setModel(drift="t1*(t2-x)",diffusion="t3")
-T<-15
+T<-10
 n<-1000
 sampling <- setSampling(Terminal=T,n=n)
 yuima<-setYuima(model=model, sampling=sampling)