crossVal in Package crossVal in package ## S3 method for class 'ts':
crossVal(object, x12Parameter, x12BaseInfo,
showCI=FALSE, main="Cross Validation",
col_original="black", col_fc="#2020ff", col_bc="#2020ff",
col_ci="#d1d1ff", col_cishade="#d1d1ff",
lty_original=1, lty_fc=1, lty_bc=1, lty_ci=1,
lwd_original=1, lwd_fc=1, lwd_bc=1, lwd_ci=1, ytop=1,
points_bc=FALSE, points_fc=FALSE, points_original=FALSE,
showLine=TRUE, col_line="grey", lty_line=3,
ylab="Value", xlab="Date")
## S3 method for class 'x12Single':
crossVal(object, x12BaseInfo=new("x12BaseInfo"),
showCI=FALSE, main="Cross Validation",
col_original="black", col_fc="#2020ff", col_bc="#2020ff",
col_ci="#d1d1ff", col_cishade="#d1d1ff",
lty_original=1, lty_fc=1, lty_bc=1, lty_ci=1,
lwd_original=1, lwd_fc=1, lwd_bc=1, lwd_ci=1, ytop=1,
points_bc=FALSE, points_fc=FALSE, points_original=FALSE,
showLine=TRUE, col_line="grey", lty_line=3,
ylab="Value", xlab="Date")ts or x12Single-class.x12Parameter.x12BaseInfo.ylim.showLine.showLine.crossValidation-class.X12,
plot,
plotSpec,
plotSeasFac,
plotRsdAcfs <- new("x12Single",ts=AirPassengers,tsName="air")
s <- setP(s,list(estimate=TRUE,regvariables="AO1950.1",outlier="all",critical=list(LS=3.5,TC=2.5),
backcast_years=1/2,forecast_years=1))
cv<-crossVal(s,showLine=TRUE)
cvRun the code above in your browser using DataLab