tests/testthat/test-zscorePlot.R

test_that("Visualization of the z-score matrix", {
  fpath <- system.file("extdata", "dataframe.rda", package="stJoincount")
  load(fpath)

  mosaicIntegration <- rasterizeEachCluster(humanBC)
  joincount.result <- joincountAnalysis(mosaicIntegration)
  matrix <- zscoreMatrix(humanBC, joincount.result)
  p <- zscorePlot(matrix)
  expect_s3_class(p, "pheatmap")
})
Nina-Song/stJoincount documentation built on Oct. 23, 2022, 4:55 p.m.