library(HDCD)
n = 50
p = 50
set.seed(100)
thresholds_emp = Inspect_calibrate(n,p, N=100, tol=1/100)
thresholds_emp$max_value # xi
# Generating data
X = matrix(rnorm(n*p), ncol = n, nrow=p)
# Adding a single sparse change-point:
X[1:5, 26:n] = X[1:5, 26:n] +2
res = Inspect(X, xi = thresholds_emp$max_value)
res$changepoints
Run the code above in your browser using DataLab