Skip to content
Permalink
Browse files

lingering changes, not yet pushed

  • Loading branch information...
paul-shannon committed Apr 15, 2019
1 parent fd002c1 commit 141f667e6193d7132b66afa5ee18f747dcc0748a
Showing with 13 additions and 9 deletions.
  1. +3 −1 .Rbuildignore
  2. +2 −0 .gitignore
  3. +8 −8 inst/unitTests/test_BayesSpikeSolver.R
@@ -1,5 +1,7 @@
^Meta$
^doc$
^.*\.tsv$
build.makefile
inst/prep

^\.travis\.yml$
^\.travis\.yml$
@@ -1,3 +1,5 @@
Meta
doc
.Rhistory
inst/doc
inst/prep
@@ -8,20 +8,20 @@ runTests <- function()
test_BayesSpikeSolverConstructor()
test_ampAD.mef2c.154tfs.278samples.bayesSpike()
test_nOrderings()

} # runTests
#----------------------------------------------------------------------------------------------------
test_BayesSpikeSolverConstructor <- function()
{
printf("--- test_BayesSpikeSolverConstructor")

mtx <- matrix(1:9,nrow=3)
rownames(mtx) <- c("gene1","gene2","gene3")
mtx <- matrix(1:9,nrow=3)
rownames(mtx) <- c("gene1","gene2","gene3")
solver <- BayesSpikeSolver(mtx,targetGene = "gene1",
candidateRegulators = c("gene2","gene3"))
checkEquals(class(solver)[1], "BayesSpikeSolver")
checkTrue(all(c("BayesSpikeSolver", "Solver") %in% is(solver)))

checkEquals(class(solver)[1], "BayesSpikeSolver")
checkTrue(all(c("BayesSpikeSolver", "Solver") %in% is(solver)))

} # test_BayesSpikeSolverConstructor
#----------------------------------------------------------------------------------------------------
@@ -31,7 +31,7 @@ test_ampAD.mef2c.154tfs.278samples.bayesSpike <- function()

set.seed(12415)
load(system.file(package="trena", "extdata/ampAD.154genes.mef2cTFs.278samples.RData"))

mtx.asinh <- asinh(mtx.sub)
target.gene <- "MEF2C"
tfs <- setdiff(rownames(mtx.asinh), "MEF2C")
@@ -56,7 +56,7 @@ test_nOrderings <- function()

set.seed(12415)
load(system.file(package="trena", "extdata/ampAD.154genes.mef2cTFs.278samples.RData"))

mtx.asinh <- asinh(mtx.sub)
target.gene <- "MEF2C"
tfs <- setdiff(rownames(mtx.asinh), "MEF2C")

0 comments on commit 141f667

Please sign in to comment.
You can’t perform that action at this time.