##Variance in presence of a break
nile <- as.zoo(Nile)
isat.nile <- isat(nile, sis=TRUE, iis=FALSE, plot=FALSE, t.pval=0.005)
var <- isatvar(isat.nile)
plot(nile)
lines(isat.nile$mean.fit, col="red")
lines(isat.nile$mean.fit + 2*var[,2], col="blue", lty=3)
lines(isat.nile$mean.fit - 2*var[,2], col="blue", lty=3)
##Variance when there is no break
set.seed(1)
x <- as.zoo(rnorm(100, 0, 1))
isat.x <- isat(x, sis=TRUE, iis=FALSE, plot=TRUE, t.pval=0.005)
var.x <- isatvar(isat.x)
plot(x)
lines(isat.x$mean.fit, col="red")
lines(isat.x$mean.fit + 2*var.x[,2], col="blue", lty=3)
lines(isat.x$mean.fit - 2*var.x[,2], col="blue", lty=3)
Run the code above in your browser using DataLab