# NOT RUN {
adj_mat <- matrix(rnorm(36),nrow=6)
sum(is.na(adj_mat)) # before reduction
reduced_by_p_value_matrix <- network_reduction_by_p_value(adjacency_matrix=adj_mat,
number_of_samples=200, reduction_alpha = 0.05,
p_value_adjustment_method = "BH")
sum(is.na(reduced_by_p_value_matrix)) # after reduction
# }
Run the code above in your browser using DataLab