## Not run:
#
# data(yeast)
# attach(yeast)
# triggerobj <- trigger.build(marker=marker, exp=exp,
# marker.pos=marker.pos, exp.pos=exp.pos)
# triggerobj <- trigger.link(triggerobj, gender=NULL, norm=TRUE)
# plot(triggerobj,type = "link", cutoff=1e-5)
# triggerobj <- trigger.eigenR2(triggerobj, adjust=FALSE)
# plot(triggerobj, type = "eigenR2")
# triggerobj<- trigger.mlink(triggerobj, B=5, seed=123)
# plot(triggerobj, qcut=0.1, bin.size=NULL)
#
# detach(yeast)
#
# ## End(Not run)
Run the code above in your browser using DataLab