# NOT RUN {
# Load the data
data("annotTrack")
data("geneEXP")
data("genotData")
# }
# NOT RUN {
# A cis eQTL for 10 different genes:
EQTL1 <- eQTL(gex=geneEXP[,1:10] , xAnnot = annotTrack,
geno= genotData)
# A trans-eQTl for two different genes:
EQTL2 <- eQTL(gex=geneEXP[,c(1,1000)] , xAnnot = annot.bed,
geno= genotData, windowSize = NULL)
# Visualize the second cis-eQTL:
plot(EQTL1, which=2)
# Visualize the trans-eQTL
plot(EQTL2)
# }
Run the code above in your browser using DataLab