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

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

Author: iacus
Date: 2010-07-20 13:55:47 +0200 (Tue, 20 Jul 2010)
New Revision: 112

Modified:
   pkg/yuima/R/CPoint.R
Log:
fixed

Modified: pkg/yuima/R/CPoint.R
===================================================================
--- pkg/yuima/R/CPoint.R	2010-07-20 11:13:51 UTC (rev 111)
+++ pkg/yuima/R/CPoint.R	2010-07-20 11:55:47 UTC (rev 112)
@@ -170,17 +170,13 @@
 	if(k>n-2)
 	k <- n-2
 
-	
+
 	env <- new.env()
-#	assign("X",  as.matrix(onezoo(yuima)), env=env)
-#	assign("deltaX",  matrix(0, n-1, d.size), env=env)
-#	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("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,]
+	 env$deltaX[t,] <- env$X[t+1,] - env$X[t,]
 
 	
 	assign("h", deltat(yuima at data@zoo.data[[1]]), env=env)