# NOT RUN {
library(mvgraphnorm)
g <- barabasi.game(100, directed=FALSE)
kk <- rmvggm(net.str=g)
kk <- rmvggm(net.str=g, n.samples=1000,
cor=0, method="ipf")
summary(kk)
kk1 <- rmvggm(net.str=g, n.samples=1000,
cor=0, method="kim")
summary(kk1)
###kk$dat is the data where columns
###represent variables and rows represent samples.
###Total 1000 samples are generated for each variable
###kk$sigma is a covariance matrix used to generate samples from gaussian graphical model.
###kk$net.str is a binary matrix of graph object given as an input.
# }
Run the code above in your browser using DataLab