# NOT RUN {
# }
# NOT RUN {
set.seed(19333)
## Generate an array (15 by 15 by 20) with a block merging transition
Y <- MakeBlockNetworkChange(n=5, T=20, type ="merge")
## Fit 3 models (no break, one break, and two break) for break number detection
detect <- BreakDiagnostic(Y, R=2, break.upper = 2)
## Look at the graph
detect[[1]]; print(detect[[2]])
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab