tests/testthat/test_corrplot.R

context("Corrplot")
library(yamatClassifier)

x <- as.matrix(mtcars[, c(1, 3:6)])

test_that(
  "correlogram()", {
    expect_error(correlogram(x = x, pheno = mtcars$cyl), NA)
  }
)


if (file.exists("Rplots.pdf"))
  file.remove("Rplots.pdf")
markgene/yamatClassifier documentation built on Oct. 14, 2024, 2:36 a.m.