[Bioc-devel] summarizeOverlaps example error
Mark Robinson
mark.robinson at imls.uzh.ch
Tue Aug 7 06:43:03 CEST 2012
Thanks Dan.
I ran this on R-2.15.1 with devel packages and get the same error. Any suggestions?
Here is the offending subset:
-----
library("GenomicRanges")
library("TxDb.Dmelanogaster.UCSC.dm3.ensGene")
exbygene <- exonsBy(TxDb.Dmelanogaster.UCSC.dm3.ensGene, "gene")
fl <- system.file("extdata", "untreated3_chr4.bam",
package="pasillaBamSubset")
reads <- readGappedAlignmentPairs(fl)
res <- summarizeOverlaps(exbygene, reads, "Union")
-----
From a quick scan, all of the BioC packages versions are the same as before, except 'tools'.
All the usual stuff below.
Best,
Mark
> res <- summarizeOverlaps(exbygene, reads, "Union")
Warning messages:
1: In is.na(unique(f)) :
is.na() applied to non-(list or vector) of type 'S4'
2: In IRanges:::newCompressedList("GRangesList", x, splitFactor = f, :
data length is not a multiple of split variable
Error in countOverlaps(reads, features, ignore.strand = ignore.strand) :
error in evaluating the argument 'query' in selecting a method for function 'countOverlaps': Error in unique.default(x) : unique() applies only to vectors
> traceback()
5: countOverlaps(reads, features, ignore.strand = ignore.strand)
4: mode(reads, features, ignore.strand)
3: .dispatchOverlaps(grglist(reads), features, mode, ignore.strand)
2: summarizeOverlaps(exbygene, reads, "Union")
1: summarizeOverlaps(exbygene, reads, "Union")
> sessionInfo()
R version 2.15.1 (2012-06-22)
Platform: x86_64-unknown-linux-gnu (64-bit)
locale:
[1] LC_CTYPE=en_CA.UTF-8 LC_NUMERIC=C
[3] LC_TIME=en_CA.UTF-8 LC_COLLATE=en_CA.UTF-8
[5] LC_MONETARY=en_CA.UTF-8 LC_MESSAGES=en_CA.UTF-8
[7] LC_PAPER=C LC_NAME=C
[9] LC_ADDRESS=C LC_TELEPHONE=C
[11] LC_MEASUREMENT=en_CA.UTF-8 LC_IDENTIFICATION=C
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] Rsamtools_1.9.25
[2] Biostrings_2.25.8
[3] TxDb.Dmelanogaster.UCSC.dm3.ensGene_2.7.1
[4] GenomicFeatures_1.9.28
[5] AnnotationDbi_1.19.28
[6] Biobase_2.17.6
[7] GenomicRanges_1.9.41
[8] IRanges_1.15.25
[9] BiocGenerics_0.3.0
loaded via a namespace (and not attached):
[1] biomaRt_2.13.2 bitops_1.0-4.1 BSgenome_1.25.6
[4] DBI_0.2-5 RCurl_1.91-1 RSQLite_0.11.1
[7] rtracklayer_1.17.15 stats4_2.15.1 tools_2.15.1
[10] XML_3.9-4 zlibbioc_1.3.0
> library(BiocInstaller)
BiocInstaller version 1.5.12, ?biocLite for help
> BiocInstaller:::.isDevel()
[1] TRUE
On 06.08.2012, at 22:11, Dan Tenenbaum wrote:
> Hi Mark,
>
> On Mon, Aug 6, 2012 at 1:01 PM, Mark Robinson <mark.robinson at imls.uzh.ch> wrote:
>> Hi all,
>>
>> My apologies in advance if I've done something pin-headed here, but can anyone else produce an error just by doing:
>>
>> library(GenomicRanges)
>> example(summarizeOverlaps)
>>
>> I think I have a set of updated (devel) packages:
>>
>>> source("http://bioconductor.org/biocLite.R")
>> BiocInstaller version 1.5.12, ?biocLite for help
>>> old.packages(repos=biocinstallRepos())
>> NULL
>>
>> My R devel is a bit old (2012-06-14 r59564) … maybe I should upgrade?
>>
>
> The devel version of Bioconductor (2.11) is not intended for use with
> R-devel. It's meant to be used with R 2.15 (just as Bioconductor 2.10,
> the release version, is). It's a bit confusing. It's because R moved
> to a yearly release schedule but we are keeping our twice-yearly
> release schedule.
>
> I don't know if that is the cause of your problems, but Bioconductor
> packages are not tested or built on R-devel, so who knows what could
> happen. Unless there is some feature in R-devel that you really want,
> I'd suggest trying R 2.15 and see if that fixes things.
>
> More info here:
> http://bioconductor.org/developers/useDevel/
>
> Dan
>
>
>> Error, traceback() and sessionInfo() below …
>>
>> Help much appreciated.
>>
>> Best,
>> Mark
>>
>>
>>> example(summarizeOverlaps)
>>
>> smmrzO> reads <- GappedAlignments(
>> smmrzO+ names = c("a","b","c","d","e","f","g"),
>> smmrzO+ seqnames = Rle(c(rep(c("chr1", "chr2"), 3), "chr1")),
>> smmrzO+ pos = as.integer(c(1400, 2700, 3400, 7100, 4000, 3100, 5200)),
>> smmrzO+ cigar = c("500M", "100M", "300M", "500M", "300M",
>> smmrzO+ "50M200N50M", "50M150N50M"),
>> smmrzO+ strand = strand(rep("+", 7)))
>>
>> smmrzO> ## ---------------------------------------------------------------------
>> smmrzO> ## 'features' as GRanges
>> smmrzO> ##
>> smmrzO>
>> smmrzO> features <- GRanges(
>> smmrzO+ seqnames = c(rep("chr1", 7), rep("chr2", 4)), strand = "+",
>> smmrzO+ ranges = IRanges(c(1000, 3000, 3600, 4000, 4000, 5000, 5400, 2000,
>> smmrzO+ 3000, 7000, 7500), width = c(500, 500, 300, 500, 900, 500, 500,
>> smmrzO+ 900, 500, 600, 300)),
>> smmrzO+ group_id = c("A", "B", "C", "C", "D", "D", "E", "F", "G", "H", "H"))
>>
>> smmrzO> ## Each row is a feature the read can 'hit'.
>> smmrzO> rowsAsFeatures <- data.frame(
>> smmrzO+ union = assays(summarizeOverlaps(features, reads))$counts,
>> smmrzO+ intStrict = assays(summarizeOverlaps(features, reads,
>> smmrzO+ mode="IntersectionStrict"))$counts,
>> smmrzO+ intNotEmpty = assays(summarizeOverlaps(features, reads,
>> smmrzO+ mode="IntersectionNotEmpty"))$counts,
>> smmrzO+ countOverlaps = countOverlaps(features, reads))
>>
>> smmrzO> ## Results from countOverlaps() are included to highlight how
>> smmrzO> ## summarizeOverlaps() counts a read only once. For these 7
>> smmrzO> ## reads, 'Union' is the most conservative counting mode, followed
>> smmrzO> ## by 'Intersectionstrict' and then 'IntersectionNotEmpty'.
>> smmrzO>
>> smmrzO> colSums(rowsAsFeatures)
>> union intStrict intNotEmpty countOverlaps
>> 3 4 5 11
>>
>> smmrzO> ## ---------------------------------------------------------------------
>> smmrzO> ## 'features' as GRangesList
>> smmrzO> ##
>> smmrzO>
>> smmrzO> ## Each highest list-level is a feature the read can 'hit'.
>> smmrzO> lst <- split(features, values(features)[["group_id"]])
>>
>> smmrzO> listAsFeatures <- data.frame(
>> smmrzO+ union = assays(summarizeOverlaps(lst, reads))$counts,
>> smmrzO+ intStrict = assays(summarizeOverlaps(lst, reads,
>> smmrzO+ mode="IntersectionStrict"))$counts,
>> smmrzO+ intNotEmpty = assays(summarizeOverlaps(lst, reads,
>> smmrzO+ mode="IntersectionNotEmpty"))$counts,
>> smmrzO+ countOverlaps = countOverlaps(lst, reads))
>>
>> smmrzO> ## ---------------------------------------------------------------------
>> smmrzO> ## 'reads' as BamFileList
>> smmrzO> ##
>> smmrzO>
>> smmrzO> ## Count BAM files and prepare output for DESeq or edgeR analysis
>> smmrzO> library(Rsamtools)
>>
>> smmrzO> library(DESeq)
>>
>> smmrzO> library(edgeR)
>>
>> smmrzO> fls <- list.files(system.file("extdata",package="GenomicRanges"),
>> smmrzO+ recursive=TRUE, pattern="*bam$", full=TRUE)
>>
>> smmrzO> names(fls) <- basename(fls)
>>
>> smmrzO> bfl <- BamFileList(fls, index=character())
>>
>> smmrzO> features <- GRanges(
>> smmrzO+ seqnames = c(rep("chr2L", 4), rep("chr2R", 5), rep("chr3L", 2)),
>> smmrzO+ ranges = IRanges(c(1000, 3000, 4000, 7000, 2000, 3000, 3600, 4000,
>> smmrzO+ 7500, 5000, 5400), width=c(rep(500, 3), 600, 900, 500, 300, 900,
>> smmrzO+ 300, 500, 500)), "-",
>> smmrzO+ group_id=c(rep("A", 4), rep("B", 5), rep("C", 2)))
>>
>> smmrzO> solap <- summarizeOverlaps(features, bfl)
>>
>> smmrzO> deseq <- newCountDataSet(assays(solap)$counts, rownames(colData(solap)))
>>
>> smmrzO> edger <- DGEList(assays(solap)$counts, group=rownames(colData(solap)))
>> Calculating library sizes from column totals.
>>
>> smmrzO> ## ---------------------------------------------------------------------
>> smmrzO> ## paired-end reads
>> smmrzO> ##
>> smmrzO>
>> smmrzO> library("TxDb.Dmelanogaster.UCSC.dm3.ensGene")
>>
>> smmrzO> exbygene <- exonsBy(TxDb.Dmelanogaster.UCSC.dm3.ensGene, "gene")
>>
>> smmrzO> fl <- system.file("extdata", "untreated3_chr4.bam",
>> smmrzO+ package="pasillaBamSubset")
>>
>> smmrzO> ## Paired-end reads are stored in a GappedAlignmentPairs object
>> smmrzO> reads <- readGappedAlignmentPairs(fl)
>>
>> smmrzO> res <- summarizeOverlaps(exbygene, reads, "Union")
>> Warning messages:
>> 1: In is.na(unique(f)) :
>> is.na() applied to non-(list or vector) of type 'S4'
>> 2: In IRanges:::newCompressedList("GRangesList", x, splitFactor = f, :
>> data length is not a multiple of split variable
>> Error in countOverlaps(reads, features, ignore.strand = ignore.strand) :
>> error in evaluating the argument 'query' in selecting a method for function 'countOverlaps': Error in unique.default(x) : unique() applies only to vectors
>>> traceback()
>> 10: countOverlaps(reads, features, ignore.strand = ignore.strand)
>> 9: mode(reads, features, ignore.strand)
>> 8: .dispatchOverlaps(grglist(reads), features, mode, ignore.strand)
>> 7: summarizeOverlaps(exbygene, reads, "Union")
>> 6: summarizeOverlaps(exbygene, reads, "Union") at Rex84b25fb6afa1#102
>> 5: eval(expr, envir, enclos)
>> 4: eval(ei, envir)
>> 3: withVisible(eval(ei, envir))
>> 2: source(tf, local, echo = echo, prompt.echo = paste0(prompt.prefix,
>> getOption("prompt")), continue.echo = paste0(prompt.prefix,
>> getOption("continue")), verbose = verbose, max.deparse.length = Inf,
>> encoding = "UTF-8", skip.echo = skips, keep.source = TRUE)
>> 1: example(summarizeOverlaps)
>>
>>
>>> sessionInfo()
>> R Under development (unstable) (2012-06-14 r59564)
>> Platform: x86_64-unknown-linux-gnu (64-bit)
>>
>> locale:
>> [1] en_CA.UTF-8
>>
>> attached base packages:
>> [1] stats graphics grDevices utils datasets methods base
>>
>> other attached packages:
>> [1] BiocInstaller_1.5.12
>> [2] TxDb.Dmelanogaster.UCSC.dm3.ensGene_2.7.1
>> [3] GenomicFeatures_1.9.28
>> [4] AnnotationDbi_1.19.28
>> [5] edgeR_2.99.4
>> [6] limma_3.13.16
>> [7] DESeq_1.9.11
>> [8] lattice_0.20-6
>> [9] locfit_1.5-8
>> [10] Biobase_2.17.6
>> [11] Rsamtools_1.9.25
>> [12] Biostrings_2.25.8
>> [13] GenomicRanges_1.9.41
>> [14] IRanges_1.15.25
>> [15] BiocGenerics_0.3.0
>>
>> loaded via a namespace (and not attached):
>> [1] annotate_1.35.3 biomaRt_2.13.2 bitops_1.0-4.1
>> [4] BSgenome_1.25.6 DBI_0.2-5 genefilter_1.39.0
>> [7] geneplotter_1.35.1 grid_2.16.0 RColorBrewer_1.0-5
>> [10] RCurl_1.91-1 RSQLite_0.11.1 rtracklayer_1.17.15
>> [13] splines_2.16.0 stats4_2.16.0 survival_2.36-14
>> [16] tools_2.16.0 XML_3.9-4 xtable_1.7-0
>> [19] zlibbioc_1.3.0
>>>
>>
>>
>>
>>
>>
>> ----------
>> Prof. Dr. Mark Robinson
>> Bioinformatics
>> Institute of Molecular Life Sciences
>> University of Zurich
>> Winterthurerstrasse 190
>> 8057 Zurich
>> Switzerland
>>
>> v: +41 44 635 4848
>> f: +41 44 635 6898
>> e: mark.robinson at imls.uzh.ch
>> o: Y11-J-16
>> w: http://tiny.cc/mrobin
>>
>> ----------
>> http://www.fgcz.ch/Bioconductor2012
>> http://www.eccb12.org/t5
>>
>> _______________________________________________
>> Bioc-devel at r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/bioc-devel
More information about the Bioc-devel
mailing list