data(dream4)
# there are a total of 5 datasets (networks) in the dream4ts100 data
network <- 1
nTimePoints <- length(unique(dream4ts10[[network]]$time))
edges1ts10 <- networkBMA( data = dream4ts10[[network]][,-(1:2)],
nTimePoints = nTimePoints, prior.prob = 0.01,
nvar = 50)
summary(edges1ts10)
Run the code above in your browser using DataLab