# NOT RUN {
# visualising most recent changepoints
data(mrcexample)
res<-mrc(mrcexample[,1:10])
p.1<-plot(res,p=2)
p.2<-plot(res,p=5)
p.3<-plot(res,p=2,group=TRUE)
p.4<-plot(res,p=5,group=TRUE)
if(require(gridExtra))
{
grid.arrange(p.1,p.2,p.3,p.4)
}
# }
Run the code above in your browser using DataLab