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

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

Author: iacus
Date: 2014-03-19 12:46:11 +0100 (Wed, 19 Mar 2014)
New Revision: 283

Modified:
   pkg/yuima/R/phi.test.R
   pkg/yuima/R/qmle.R
Log:
removed :::

Modified: pkg/yuima/R/phi.test.R
===================================================================
--- pkg/yuima/R/phi.test.R	2014-03-19 11:43:06 UTC (rev 282)
+++ pkg/yuima/R/phi.test.R	2014-03-19 11:46:11 UTC (rev 283)
@@ -10,7 +10,7 @@
 	n <- length(yuima)[1]
 	
 	env <- new.env()
-	assign("X",  as.matrix(yuima:::onezoo(yuima)), envir=env)
+	assign("X",  as.matrix(onezoo(yuima)), envir=env)
 	assign("deltaX",  matrix(0, n-1, d.size), envir=env)
 	for(t in 1:(n-1))
 	env$deltaX[t,] <- env$X[t+1,] - env$X[t,]

Modified: pkg/yuima/R/qmle.R
===================================================================
--- pkg/yuima/R/qmle.R	2014-03-19 11:43:06 UTC (rev 282)
+++ pkg/yuima/R/qmle.R	2014-03-19 11:46:11 UTC (rev 283)
@@ -1052,13 +1052,13 @@
 	
 	env <- new.env()
 #	if (is(yuima at model, "yuima.carma")){
-	  assign("X",  as.matrix(yuima:::onezoo(yuima)), envir=env)
+	  assign("X",  as.matrix(onezoo(yuima)), envir=env)
 	  assign("deltaX",  matrix(0, n-1, d.size), envir=env)
 #	}
 	if (is(yuima at model, "yuima.carma")){
 	  #24/12 If we consider a carma model,
 	  # the observations are only the first column of env$X
-# 	  assign("X",  as.matrix(yuima:::onezoo(yuima))[,1], envir=env)
+# 	  assign("X",  as.matrix(onezoo(yuima))[,1], envir=env)
 # 	  assign("deltaX",  matrix(0, n-1, d.size)[,1], envir=env)
  	  env$X<-as.matrix(env$X[,1])
  	  env$deltaX<-as.matrix(env$deltaX[,1])