# artificial data
data(humanNetworkSimul)
sim = simulateData(affinities2)
limmamRNA = limmaAnalysis(sim$dat.mRNA, design=NULL, "treated - control")
# burnin and sampling size is much too small in reality
result = birteLimma(dat.mRNA=sim$dat.mRNA, data.regulators=NULL,
limmamRNA=limmamRNA,
affinities=affinities2, niter=100, nburnin=100, thin=2)
est = birtePredict(result, rownames(sim$dat.mRNA))
Run the code above in your browser using DataLab