## 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)
# stat = slot(triggerobj, "stat"); pvalue = slot(triggerobj, "pvalue")
# detach(yeast)
#
# ## End(Not run)
Run the code above in your browser using DataLab