[Yuima-commits] r629 - in pkg/yuima: . R

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

Author: iacus
Date: 2017-10-08 11:51:44 +0200 (Sun, 08 Oct 2017)
New Revision: 629

Modified:
   pkg/yuima/DESCRIPTION
   pkg/yuima/R/CPoint.R
Log:
fixed cpoint plot text

Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2017-09-10 20:11:25 UTC (rev 628)
+++ pkg/yuima/DESCRIPTION	2017-10-08 09:51:44 UTC (rev 629)
@@ -1,7 +1,7 @@
 Package: yuima
 Type: Package
 Title: The YUIMA Project Package for SDEs
-Version: 1.7.2
+Version: 1.7.3
 Depends: R(>= 2.10.0), methods, zoo, stats4, utils, expm, cubature, mvtnorm
 Imports: Rcpp (>= 0.12.1), boot (>= 1.3-2)
 Author: YUIMA Project Team

Modified: pkg/yuima/R/CPoint.R
===================================================================
--- pkg/yuima/R/CPoint.R	2017-09-10 20:11:25 UTC (rev 628)
+++ pkg/yuima/R/CPoint.R	2017-10-08 09:51:44 UTC (rev 629)
@@ -58,7 +58,7 @@
 	D <- c(D[1], D, D[length(D)])
 	D <- ts(D, start=0, deltat=deltat(yuima at data@zoo.data[[1]]))
 	if(plot)
-	 plot(D,type="l", main="change point statistics")
+	 plot(D,type="l", main="change point statistic")
 	tau.hat <- index(yuima at data@zoo.data[[1]])[which.min(D)]	
 
 	return(list(tau=tau.hat, param1=param1, param2=param2))
@@ -338,7 +338,7 @@
 	else
 	 D <- ts(D, start=0, deltat=deltat(yuima at data@zoo.data[[1]]))
 	if(plot)
-	plot(D,type="l", main="change point statistics")
+	plot(D,type="l", main="change point statistic")
 #	tau.hat <- index(yuima at data@zoo.data[[1]])[which.min(D)]	
 	tau.hat <- index(D)[which.min(D)]