data_nbd <- sim_hdchange_nbd(n = 300,
p = 70,
nbd_info =
list(
(1:9), (2:31), (32:41), (42:70),
(3:15), (16:35), (31:55)
),
sp_tp_break = rbind(c(2, 50), c(4, 150), c(2, 250)),
dist_info =
list(dist = "t", dependence = "iid", param = 5),
jump_max = 1)
Run the code above in your browser using DataLab