Browse code

Added SR organism as Hsapiens

Matthew Richards authored on 26/08/2017 00:22:36
Showing4 changed files

... ...
@@ -322,11 +322,9 @@ matrixToJasparText <- function (matrices)
322 322
 
323 323
       # For each line of the matrix, print the correct letter and the
324 324
       # matrix row surrounded by brackets
325
-      #      motif.matrix <- matrices[name][[1]]
325
+      motif.matrix <- matrices[name][[1]]
326
+	    
326 327
 
327
-      # Alter it to make artificial counts
328
-      motif.matrix <- round(1000*matrices[name][[1]])
329
-      
330 328
       for (r in 1:nrow(motif.matrix)) {
331 329
           s[index] <- sprintf("%s [ %s ]",
332 330
                               rownames(motif.matrix)[r],
333 331
Binary files a/inst/extdata/SwissRegulon.RData and b/inst/extdata/SwissRegulon.RData differ
334 332
Binary files a/inst/scripts/import/SwissRegulon/SwissRegulon.RData and b/inst/scripts/import/SwissRegulon/SwissRegulon.RData differ
... ...
@@ -96,8 +96,9 @@ createMetadataTable = function (matrices)
96 96
       id.pieces <- unlist(strsplit(matrix.id, "\\."))
97 97
       # Piece 1 has TF; Piece 2 has Origin; Piece 3 has program/tool/resource
98 98
       tf <- id.pieces[1]
99
-     
100
-      organism <- NA
99
+
100
+      # These are all human
101
+      organism <- "Hsapiens"
101 102
     
102 103
       dataSource <- "SwissRegulon"
103 104