# NOT RUN {
adjacency_matrix <- matrix(rnorm(36),nrow=6)
diag(adjacency_matrix) <- 1
RsquaredCut <- 0.001
cutVector <- seq(0.2, 0.8, by = 0.05)
# }
# NOT RUN {
cutEstimate_coarse <- pickHardThreshold_alternative(abs(adjacency_matrix), RsquaredCut,
cutVector)
# }
Run the code above in your browser using DataLab