This package is developed in the Applied Mathematics and Informatics
(
To cite GGMselect, please use citation("GGMselect")
.
citation("GGMselect")
.selectFast
, selectQE
,
selectMyFam
,convertGraph
,
simulateGraph
, penalty
p=30
n=30
# simulate graph
eta=0.11
Gr <- simulateGraph(p,eta)
# simulate data
X <- rmvnorm(n, mean=rep(0,p), sigma=Gr$C)
# estimate graph
GRest <- selectFast(X)
# plot result
library(network)
par(mfrow=c(1,2))
gV <- network(Gr$G)
plot(gV,jitter=TRUE, usearrows = FALSE, label=1:p,displaylabels=TRUE)
g <- network(GRest$EW$G)
plot(g, jitter=TRUE, usearrows = FALSE, label=1:p,displaylabels=TRUE)
Run the code above in your browser using DataLab