# NOT RUN {
data("Gnu")
Th <- 10 # final time T
step <- 0.1
myptn <- seq(from = step, to = Th, by = step)
res <- ModFit(Gnu = Gnu, kmin = 3, kmax = 3, MinimalPartition = FALSE, custom_partition = myptn)
ModPlot(Gnu, res, type = "adjacency")
# }
Run the code above in your browser using DataLab