set.seed(1)
N=4
Net = gen.Network(method = "cohort", p = 10,
Nsub = N, sparsity = .2,
REsize = 20, REprob = .5,
REnoise = 1, Nobs = 10)
## Not run:
# # plot simulated networks:
# plot(Net, view="pop")
#
# # run MNS algorithm:
# mns = MNS(dat = Net$Data, lambda_pop = .1, lambda_random = .1, parallel = TRUE)
#
# # plot results from MNS algorithm:
# plot(mns) # plot population network
# plot(mns, view="var") # plot variance network
# plot(mns, view="sub") # plot subject networks (note red edges here are variable edges!)
# ## End(Not run)
Run the code above in your browser using DataLab