# Perform eQTL (single location, one gene):
data(Xgene)
data(genotData)
data(annotTrack)
## Not run:
# annotBed110 <- gtfToBed(annotTrack[1:10,])
#
# lm.myEQTL <- eQTL(gex=Xgene,geno=genotData, xAnnot=annotBed110,method="LM")
#
# plot(lm.myEQTL)
#
# dir.myEQTL <- eQTL(gex=Xgene,geno=genotData, xAnnot=annotBed110,method="directional")
# plot(lm.myEQTL, x2=dir.myEQTL, log=TRUE, sig=2)
# ## End(Not run)
Run the code above in your browser using DataLab