bdgraph( data, n = NULL, method = "ggm", algorithm = "bdmcmc", iter = 5000,
burnin = iter / 2, b = 3, Gstart = "empty", save.all = FALSE )
data.frame
of data or a covariance matrix as $S=X'X$ which $X$ is the data matrix. It also could be an object of class "sim"
, from function bdgrap
"data"
is a covariance matrix."ggm"
(defult) and "gcgm"
.
Option "ggm"
is for Gaussian graphical models based on Gaussianity assumption.
Option "gcgm"
is for Gaussian copula graphical models for the"bdmcmc"
(defult) and "rjmcmc"
.
Option "bdmcmc"
is based on birth-death MCMC algorithm.
Option "rjmcmc"
is based on reverible jump MCMC algorithm."full"
(default), "empty"
, or an object with S3
class "bdgraph"
.
Option "full"
means the initial graph is a full graph and "
S3
class "bdgraph"
is returned:R
Package for Bayesian Structure Learning in Graphical Models, arXiv:1501.05108
Mohammadi, A., F. Abegaz Yazew, E. van den Heuvel, and E. Wit (2015). Bayesian Gaussian Copula Graphical Modeling for Dupuytren Disease, arXiv:1501.04849bdgraph.sim
, summary.bdgraph
, and compare
# Generating multivariate normal data from a 'random' graph
data.sim <- bdgraph.sim( n = 20, p = 6, size = 7, vis = TRUE )
output <- bdgraph( data = data.sim, iter = 1000 )
summary(output)
# To compare our result with true graph
compare( data.sim, output, colnames = c("True graph", "BDgraph") )
# Running algorithm with starting points from previous run
output2 <- bdgraph( data = data.sim, iter = 5000, Gstart = output )
compare( data.sim, output, output2, colnames = c("True graph", "Frist run", "Second run") )
# Generating mixed data from a 'scale-free' graph
data.sim <- bdgraph.sim( n = 50, p = 6, type = "mixed", graph = "scale-free", vis = TRUE )
output <- bdgraph( data = data.sim, method = "gcgm", iter = 10000 )
summary( output )
compare( data.sim, output )
Run the code above in your browser using DataLab