Browse code

Added count estimation to Jaspar format

Matthew Richards authored on 15/08/2017 23:50:50
Showing1 changed files

... ...
@@ -312,7 +312,11 @@ matrixToJasparText <- function (matrices)
312 312
 
313 313
       # For each line of the matrix, print the correct letter and the
314 314
       # matrix row surrounded by brackets
315
-      motif.matrix <- matrices[name][[1]]
315
+      #      motif.matrix <- matrices[name][[1]]
316
+
317
+      # Alter it to make artificial counts
318
+      motif.matrix <- round(1000*matrices[name][[1]])
319
+      
316 320
       for (r in 1:nrow(motif.matrix)) {
317 321
           s[index] <- sprintf("%s [ %s ]",
318 322
                               rownames(motif.matrix)[r],