@@ -322,11 +322,9 @@ matrixToJasparText <- function (matrices)

       # For each line of the matrix, print the correct letter and the

       # matrix row surrounded by brackets

-      #      motif.matrix <- matrices[name][[1]]

+      motif.matrix <- matrices[name][[1]]

+	    

-      # Alter it to make artificial counts

-      motif.matrix <- round(1000*matrices[name][[1]])

-      

       for (r in 1:nrow(motif.matrix)) {

           s[index] <- sprintf("%s [ %s ]",

                               rownames(motif.matrix)[r],

Binary files a/inst/extdata/SwissRegulon.RData and b/inst/extdata/SwissRegulon.RData differ

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)

       id.pieces <- unlist(strsplit(matrix.id, "\\."))

       # Piece 1 has TF; Piece 2 has Origin; Piece 3 has program/tool/resource

       tf <- id.pieces[1]

-     

-      organism <- NA

+

+      # These are all human

+      organism <- "Hsapiens"

       dataSource <- "SwissRegulon"