Browse code

lexical only: renamed 2 variables

paul-shannon authored on 04/10/2017 17:49:04
Showing1 changed files

... ...
@@ -780,11 +780,8 @@ test.motifToGene <- function()
780 780
 
781 781
    motifs <- c("MA0592.2", "UP00022", "ELF1.SwissRegulon")
782 782
 
783
-   set.seed(31);
784
-   motifs.long <- names(MotifDb)[sample(1:length(MotifDb), 10)]
785
-
786
-      # MotifDb mode uses the MotifDb metadata, pulled from many sources
787
-   tbl.d <- motifToGene(MotifDb, motifs, source="MotifDb")
783
+      # MotifDb mode uses the MotifDb metadata "providerId",
784
+   tbl.mdb <- motifToGene(MotifDb, motifs, source="MotifDb")
788 785
    checkEquals(dim(tbl.d), c(3, 6))
789 786
    checkEquals(tbl.d$motif, c("MA0592.2", "ELF1.SwissRegulon", "UP00022"))
790 787
    checkEquals(tbl.d$geneSymbol, c("Esrra", "ELF1", "Zfp740"))
... ...
@@ -794,7 +791,7 @@ test.motifToGene <- function()
794 791
 
795 792
 
796 793
       # TFClass mode uses  TF family classifcation
797
-   tbl.i <- motifToGene(MotifDb, motifs, source="TFClass")
794
+   tbl.tfClass <- motifToGene(MotifDb, motifs, source="TFClass")
798 795
    checkEquals(dim(tbl.i), c(9,4))
799 796
    checkEquals(tbl.i$motif, rep("MA0592.2", 9))
800 797
    checkEquals(sort(tbl.i$gene), c("AR", "ESR1", "ESR2", "ESRRA", "ESRRB", "ESRRG", "NR3C1", "NR3C2", "PGR"))