## 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)
#
# prelim <- contabs.prelim( network = edges, reference = referenceNetwork,
# known = reg.known)
# contabs( network = prelim$network, reference = prelim$reference,
# size = prelim$size, thresholds = prelim$thresholds)
#
# contabs.netwBMA( network = edges, reference = referenceNetwork,
# known = reg.known)
# ## End(Not run)
Run the code above in your browser using DataLab