# \donttest{
gb_depression <- goldbricker(depression, threshold=0.5)
reduced_depression_PCA <- net_reduce(data=depression, badpairs=gb_depression)
reduced_depression_best <- net_reduce(data=depression,
badpairs=gb_depression, method="best_goldbricker")
# }
Run the code above in your browser using DataLab