tests/testthat/test_percentNormality.R

In jchitpin/blistR:

library(testthat)
library(data.table)

test_that("Test percentNormality", {

    DT <- readRDS("/home/jchitpin/Downloads/Masters/Projects/MATRIX/RPackages/testData/DT_percentNormality.rds")

    percentNorm <- percentNormality(DT = DT, p_KS = 0.001)

    trueData <- readRDS(file = "/home/jchitpin/Downloads/Masters/Projects/MATRIX/RPackages/testData/percentNormality.rds")

    expect_equal(percentNorm, trueData)
})