# NOT RUN {
Y <- na.omit(bfi[,1:25])
Y_explore <- Y[1:1000,]
Y_confirm <- Y[1001:nrow(Y),]
fit <- ggmncv(cor(Y_explore),
n = nrow(Y_explore),
progress = FALSE)
confirm <- confirm_edges(fit,
Rnew = cor(Y_confirm),
method = "fdr",
alpha = 0.05)
# }
Run the code above in your browser using DataLab