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