## Not run:
# data(vignette)
#
# dim(timeSeries)
# colnames(timeSeries)
# table(timeSeries$replicate)
# table(timeSeries$time)
#
# dim(reg.known)
# colnames(reg.known)
#
# dim(reg.prob)
#
# edges <- networkBMA(data = timeSeries[,-(1:2)],
# nTimePoints = length(unique(timeSeries$time)),
# prior.prob = reg.prob, known = reg.known)
#
# contabs.netwBMA( network = edges, reference = referenceNetwork,
# known = reg.known)
# ## End(Not run)
Run the code above in your browser using DataLab