## 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