# NOT RUN {
T<-60
change<-35
x<-rnorm(n=T, m=0, sd=1)
e<-scale(rt(n=T,3), scale=FALSE)
y1<-5*x[1:(change-1)]+e[1:(change-1)]
y2<--2*x[change:T]+e[change:T]
y<-c(y1,y2)
testResult <- changeTest(x1=as.data.frame(x[1:T]),
y1=as.data.frame(y[1:T]),
x2=as.data.frame(x[31:T]),
y2=as.data.frame(y[31:T]),
R=200)
# }
Run the code above in your browser using DataLab