data(yeast)
attach(yeast)
triggerobj <- trigger.build(marker = marker, exp = exp,
marker.pos = marker.pos, exp.pos = exp.pos)
crossfile <- trigger.export2cross(triggerobj, plotarg = TRUE, verbose = TRUE, warning = FALSE)
tt.pval <- trigger.trait(triggerobj, trait = "DSE1", cross = crossfile)
causal.reg <- names(which(p.adjust(tt.pval, method = "fdr")<.05))
detach(yeast)
Run the code above in your browser using DataLab