# NOT RUN {
p = 100
Subj <- rep(1, p)
Reference_Population <- generate_correlated_matrix(100, p, corr = 0.75,constant_cov_matrix = TRUE)
overall_abnormality(Subj,Reference_Population)
overall_abnormality(Subj,Reference_Population,dist_measure = "Euclidean")
overall_abnormality(Subj,Reference_Population,stopping_rule = "TVE", TVE = .90)
overall_abnormality(Subj,Reference_Population,dist_measure = "Lk-Norm",k=.5,stopping_rule="brStick")
# }
Run the code above in your browser using DataLab