library("strucchange")
df1 <- data.frame(y=rnorm(300))
df1[150:300,"y"] <- df1[150:300,"y"]+1
me1 <- mefp(y~1, data=df1[1:50,,drop=FALSE], type="ME", h=1,
alpha=0.05)
me2 <- monitor(me1, data=df1)Break detected at observation # 86

Computes boundary for an object of class “mefp”
## S3 method for class 'mefp'
boundary(x, ...)
x
|
an object of class “mefp”.
|
…
|
currently not used. |
an object of class “ts” with the same time properties as the monitored process
mefp, plot.mefp
library("strucchange")
df1 <- data.frame(y=rnorm(300))
df1[150:300,"y"] <- df1[150:300,"y"]+1
me1 <- mefp(y~1, data=df1[1:50,,drop=FALSE], type="ME", h=1,
alpha=0.05)
me2 <- monitor(me1, data=df1)Break detected at observation # 86
