#############################
### Create dmSQTLdata object
#############################
# Use subsets of data defined in GeuvadisTranscriptExpr package
library(GeuvadisTranscriptExpr)
counts <- GeuvadisTranscriptExpr::counts
genotypes <- GeuvadisTranscriptExpr::genotypes
gene_ranges <- GeuvadisTranscriptExpr::gene_ranges
snp_ranges <- GeuvadisTranscriptExpr::snp_ranges
# Make sure that samples in counts and genotypes are in the same order
sample_id <- colnames(counts[, -(1:2)])
d <- dmSQTLdataFromRanges(counts = counts[, sample_id],
gene_id = counts$Gene_Symbol, feature_id = counts$TargetID,
gene_ranges = gene_ranges, genotypes = genotypes[, sample_id],
snp_id = genotypes$snpId, snp_ranges = snp_ranges, sample_id = sample_id,
window = 5e3, BPPARAM = BiocParallel::SerialParam())
plotData(d)
Run the code above in your browser using DataLab