## Simulate 2D data and plot it
library(reshape2)
changepoint.data <- changepoint.sim2D()
image(1:nrow(changepoint.data), 1:ncol(changepoint.data),
matrix(changepoint.data, nrow=nrow(changepoint.data), byrow=FALSE))
Run the code above in your browser using DataLab