@@ -26,5 +26,5 @@ vignettes/*.pdf

 .Rproj.user

 celda.Rproj

 .DS_Store

-.o

-.dll

+src/*.o

+src/*.dll

@@ -247,7 +247,7 @@ renderCeldaHeatmap <- function(counts, z = NULL, y = NULL,

 #' @import graphics

 #' @export 

 absoluteProbabilityHeatmap <- function(counts, celda.mod, main = NA){

-  factorized <- factorizeMatrix(celda.mod = model, counts = counts)

+  factorized <- factorizeMatrix(celda.mod = celda.mod, counts = counts)

   pop <- factorized$proportions$population.states

   z <- 1:ncol(pop)

   y <- 1:nrow(pop)

new file mode 100755

@@ -0,0 +1,15 @@

+# celda_C.R

+library(celda)

+library(Rtsne)

+context("Testing celda Visualization Experiments")

+

+load("../celdaCGsim.rda")

+load("../celdaCG.rda")

+model_CG = getModel(celdaCG.res, K = 5, L=3)[[1]]

+factorized <- factorizeMatrix(celda.mod = model_CG, counts = celdaCG.sim$counts)

+counts.matrix <- celdaCG.sim$counts

+

+test_that(desc = "Testing that absoluteProbabilityHeatmap runs",{

+  plot.obj = absoluteProbabilityHeatmap(counts=counts.matrix, celda.mod=model_CG)

+  expect_true(!is.null(plot.obj))

+})