## Not run: 
#   data(yeast)
#   attach(yeast)
#   triggerobj <- trigger.build(marker = marker, exp = exp, 
# 			marker.pos = marker.pos, exp.pos = exp.pos)
#   triggerobj <- trigger.eigenR2(triggerobj, adjust = FALSE)
#   plot(triggerobj, type = "eigenR2")
#   eqtlR2 <- slot(triggerobj, "eigenR2")
#   detach(yeast)
# 
# ## End(Not run)
Run the code above in your browser using DataLab