R package (Bayes EM algorithms for Gaussian Graphical Models)
Lingrui(Gary) Gan, University of Illinois at Urbana and Champaign
Feng Liang, University of Illinois at Urbana and Champaign
Fast Bayesian algorithms for learning the sparse structure of a Gaussian graphical model
C=toeplitz(c(1,0.5,rep(0,p_n-2)))
Sigma=solve(C)
Y<-mvrnorm(n,rep(0,p_n),Sigma)
S<-cov(Y)
a0=1
b0=1
alpha=1
beta=c(1,50,100)
v0=0.1
v1=c(0.3,0.4,0.5)
maxiter=100
Ra=3000
Tune=Tune_EMLasso(S,n,p_n,a0,b0,alpha,beta,v0,maxiter,w,l,Ra)
Ra=Tune$Ra
v1=Tune$v1
beta=Tune$beta
result<-EM(S,n,p_n,a0,b0,alpha,beta,v0,v1,maxiter,w,l,Ra)
result$P
result$Theta
Manuscript
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.