tests/testthat/test-data_preprocessing.R

In EvaYiwenWang/PLSDAbatch: PLSDA-batch

test_that("checking PreFL", {
  library(TreeSummarizedExperiment)
  data('AD_data')

  ad.count <- assays(AD_data$FullData)$Count # microbial count data

  ad.filter.res <- PreFL(data = ad.count)

  ad.zero.prob <- ad.filter.res$zero.prob

  ad.filter <- ad.filter.res$data.filter

  expect_is(ad.zero.prob, 'numeric')
  expect_equal(round(ad.zero.prob, digits = 3), 0.633)

  expect_is(ad.filter, 'matrix')
})