## Example - viewing a fire spread experiment that contains change-points
data("fireData")
## Plot the red channel at 10 seconds as a 2d image
image(1:dim(fireData)[1], 1:dim(fireData)[2],
matrix(fireData[,,1,10], nrow=dim(fireData)[1], byrow=FALSE))
Run the code above in your browser using DataLab