# \donttest{
set.seed(7)
ts <- MAR_Variance(2, "V1")
ts <- ts[,2]
# test the change in a single parameter (variance)
# grid_size defined
result <- SNSeg_Uni(ts, paras_to_test = "variance", confidence = 0.9,
grid_size_scale = 0.05, grid_size = 67,
plot_SN = FALSE, est_cp_loc = TRUE)
plot(result, cpts.col='red')
# }
Run the code above in your browser using DataLab