|
|
|
GGMselect
Gaussian Graphs Models selection |
|---|
# ----------------------------------------
# Random graph generator: use of simulateGraph
# ----------------------------------------
p=30
n=30
eta=0.11
Gr <- simulateGraph(p,eta)
# simulate data
X <- rmvnorm(n, mean=rep(0,p), sigma=Gr$C)
# ----------------------------------------
# Graph selection with family QE: use of selectQE
# ----------------------------------------
GQE <- selectQE(X)
# ----------------------------------------
# Plot the result with the help of the package network
# ----------------------------------------
library(network)
gV <- network(Gr$G)
g <- network(GQE$G)
jpeg("example.jpg", width=680, height=580)
par(mfrow=c(1,2), pty = "s", mai=c(par()$mai[1:2], 0, par()$mai[4]))
a <- plot(gV, usearrows = FALSE)
title(sub="Simulated graph")
plot(g,coord=a, usearrows = FALSE)
title(sub="Graph selected with QE family")
dev.off()
Licence
GGMselect is an open source, freely available software released under
the GPL-3 Licence.
Requirements
R
system, -- including C and Fortran compilers --, and
the R-packages: mvtnorm, lars, mvbutils (>= 2.0), gtools.
Documentation
An introduction to GGMselect
[pdf]
Download
Download the last version
(0.1-12) here
or from
the CRAN site.
Contact
Sylvie.Huet at
inra.fr