require(TxDb.Mmusculus.UCSC.mm9.knownGene)
txdb <- TxDb.Mmusculus.UCSC.mm9.knownGene
# loading H3K4me3 peaks as a GRanges object
# built based on the BED file from the GEO GSM1234483 sample
# limited to chr19:3200000-4000000
H3K4me3GR <- system.file("extdata", "H3K4me3GR.Rda", package="compEpiTools")
load(H3K4me3GR)
# pointing to Pol2 BAM file (it could be used as a replacement of the K79bam or K36bam ..)
# BAM file from the GEO GSM1234478 sample, limited to chr19:3200000-4000000
Pol2bam <- system.file("extdata", "Pol2.bam", package="compEpiTools")
# pointing to H3K4me3 BAM file
# BAM file from the GEO GSM1234483 sample, limited to chr19:3200000-4000000
H3K4me3bam <- system.file("extdata", "H3K4me3.bam", package="compEpiTools")
# pointing to H3K4me1 BAM file
# BAM file from the GEO GSM1234488 sample, limited to chr19:3200000-4000000
H3K4me1bam <- system.file("extdata", "H3K4me1.bam", package="compEpiTools")
res <- findLncRNA(k4me3gr=H3K4me3GR, k4me3bam=H3K4me3bam, k4me1bam=H3K4me1bam,
k79bam=Pol2bam, k36bam=NA, RNAseqbam=NA,
sizeLNC=10000, txdb=txdb, org=NULL, Qthr=0)
Run the code above in your browser using DataLab