Aplicação - Algoritmo 3

set.seed(287)
library(BDgraph)

## Warning: package 'BDgraph' was built under R version 4.3.3

#Banco de Dados Simulado
set.seed(287)
data <- bdgraph.sim( n = 500, p = 15, type = "mixed", graph = "random", vis = TRUE )

data

##   graph generated by bdgraph.sim
##   Data type       = mixed
##   Sample size     = 500
##   Graph type      = random
##   Number of nodes = 15
##   Graph size      = 19
##   Sparsity        = 0.819

bdgraph.obj = bdgraph( data = data, method = "gcgm", iter = 5000, verbose = FALSE )
compare( bdgraph.obj, data, main = c( "Target", "BDgraph" ), vis = TRUE )

##                Target BDgraph
## True Positive      19  12.000
## True Negative      86  86.000
## False Positive      0   0.000
## False Negative      0   7.000
## F1-score            1   0.774
## Specificity         1   1.000
## Sensitivity         1   0.632
## MCC                 1   0.764

plotroc( bdgraph.obj, data, labels = "BDgraph", color = "blue" )