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

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

Author: iacus
Date: 2010-07-20 14:29:29 +0200 (Tue, 20 Jul 2010)
New Revision: 113

Modified:
   pkg/yuima/R/CPoint.R
Log:
fixed small bug in qmleR, qmleL

Modified: pkg/yuima/R/CPoint.R
===================================================================
--- pkg/yuima/R/CPoint.R	2010-07-20 11:55:47 UTC (rev 112)
+++ pkg/yuima/R/CPoint.R	2010-07-20 12:29:29 UTC (rev 113)
@@ -71,7 +71,7 @@
 #	for(t in 1:(n-1))
 #	 env$deltaX[t,] <- env$X[t+1,] - env$X[t,]
 
-	assign("X",  as.matrix(onezoo(yuima))[1:k,], env=env)
+	assign("X",  as.matrix(onezoo(yuima)[1:k,]), env=env)
 	assign("deltaX",  matrix(0, k-1, d.size), env=env)
 	for(t in 1:(k-1))
 	env$deltaX[t,] <- env$X[t+1,] - env$X[t,]
@@ -173,7 +173,7 @@
 
 	env <- new.env()
 
-	assign("X",  as.matrix(onezoo(yuima))[-(1:k),], env=env)
+	assign("X",  as.matrix(onezoo(yuima)[-(1:k),]), env=env)
 	assign("deltaX",  matrix(0, dim(env$X)[1]-1, d.size), env=env)
 	for(t in 1:(dim(env$X)[1]-1))
 	 env$deltaX[t,] <- env$X[t+1,] - env$X[t,]