## Not run:
# data(yeast)
# attach(yeast)
# triggerobj <- trigger.build(marker = marker, exp = exp,
# marker.pos = marker.pos, exp.pos = exp.pos)
# triggerobj <- trigger.loclink(triggerobj, window.size = 30000)
# trig.prob <- trigger.net(triggerobj, Bsec = 100)
#
# trigger.netPlot2ps(trig.prob, pcut = 0.95, layout = "e", filenam = "net95", nreg = 20)
#
# detach(yeast)
# ## End(Not run)
Run the code above in your browser using DataLab