Browse code

use setdiff() instead of psetdiff() on GRangesList objects

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/SplicingGraphs@113852 bc3139a8-67e5-0310-9ffc-ced21a209358

Herve Pages authored on 22/02/2016 00:08:19
Showing 2 changed files

... ...
@@ -1,7 +1,7 @@
1 1
 Package: SplicingGraphs
2 2
 Title: Create, manipulate, visualize splicing graphs, and assign RNA-seq reads
3 3
 	to them
4
-Version: 1.11.2
4
+Version: 1.11.3
5 5
 Author: D. Bindreither, M. Carlson, M. Morgan, H. Pages
6 6
 License: Artistic-2.0
7 7
 Description: This package allows the user to create, manipulate, and visualize
... ...
@@ -14,7 +14,7 @@ Depends: GenomicFeatures (>= 1.17.13), GenomicAlignments (>= 1.1.22),
14 14
 	 Rgraphviz (>= 2.3.7)
15 15
 Imports: methods, utils, igraph, BiocGenerics,
16 16
 	 S4Vectors (>= 0.9.25), IRanges (>= 2.3.21),
17
-	 GenomeInfoDb, GenomicRanges, GenomicFeatures, Rsamtools,
17
+	 GenomeInfoDb, GenomicRanges (>= 1.23.21), GenomicFeatures, Rsamtools,
18 18
 	 GenomicAlignments, graph, Rgraphviz
19 19
 Suggests: igraph, Gviz,
20 20
 	 TxDb.Hsapiens.UCSC.hg19.knownGene, RNAseqData.HNRNPC.bam.chr14,
... ...
@@ -588,7 +588,7 @@ setMethod("SplicingGraphs", "GRangesList",
588 588
                             check.introns=check.introns)
589 589
         ans_genes <- GeneModel(ans_ex_by_tx)
590 590
         mcols(ans_ex_by_tx) <- NULL
591
-        ans_in_by_tx <- psetdiff(range(ans_ex_by_tx), ans_ex_by_tx)
591
+        ans_in_by_tx <- setdiff(range(ans_ex_by_tx), ans_ex_by_tx)
592 592
         common_strand <- commonStrand.GRangesList(ans_in_by_tx)
593 593
         ans_in_by_tx <- revElements(ans_in_by_tx, common_strand == "-")
594 594
         ans_bubbles_cache <- new.env(parent=emptyenv())