Browse code

changed kDataDir to be repo root

git-svn-id: https://hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/MotifDb@75368 bc3139a8-67e5-0310-9ffc-ced21a209358

p.shannon authored on 05/04/2013 17:35:26
Showing2 changed files

... ...
@@ -5,11 +5,12 @@ library (org.Mm.eg.db)
5 5
 #------------------------------------------------------------------------------------------------------------------------
6 6
 printf <- function(...) print(noquote(sprintf(...)))
7 7
 #------------------------------------------------------------------------------------------------------------------------
8
-kDataDir <- "~/s/data/public/TFBS/stam"
9
-kDataDir <- "/shared/silo_researcher/Morgan_M/BioC/MotifDb/stamlab"
8
+kDataDir <- "~/s/data/public/TFBS"
9
+kDataDir <- "/shared/silo_researcher/Morgan_M/BioC/MotifDb"
10 10
 #------------------------------------------------------------------------------------------------------------------------
11 11
 run = function (dataDir=kDataDir)
12 12
 {
13
+  dataDir <- file.path(dataDir, "stamlab")
13 14
   rawMatrixList <- readRawMatrices (dataDir)
14 15
   novels <- readNovelStatus (dataDir)
15 16
   matrices <- extractAndNormalizeMatrices (rawMatrixList)
... ...
@@ -8,6 +8,7 @@ source("import.R")
8 8
 #------------------------------------------------------------------------------------------------------------------------
9 9
 run.tests = function (dataDir=kDataDir)
10 10
 {
11
+  dataDir <- file.path(dataDir, "stamlab")
11 12
   x.rawMatrixList <<- test.readRawMatrices (dataDir)
12 13
   x.novels <<- test.readNovelStatus (dataDir)
13 14
   x.matrices <<- test.extractAndNormalizeMatrices (x.rawMatrixList)