#### Generate Simulated data example ####
set.seed(30)
x=c(rnorm(50),rnorm(50,mean=5),rnorm(1,mean=15),rnorm(49,mean=5),rnorm(50,mean=4))
xcpt = cpt.mean(x,method='PELT') # Get the changepoints via PELT
#### Influence Map ####
if (FALSE) {
library(ggplot2)
x.inf = influence(xcpt, method = "delete")
InfluenceMap(cpts(xcpt), x.inf, data = x, include.data = TRUE,
ggops = theme(axis.text = element_text(size=15), axis.title = element_text(size=20),
plot.title = element_text(size=25)))
x.inf = influence(xcpt, method = "outlier")
InfluenceMap(cpts(xcpt), x.inf, data=x, include.data = TRUE,
ggops = theme(axis.text = element_text(size=15), axis.title = element_text(size=20),
plot.title = element_text(size=25)))
}
Run the code above in your browser using DataLab