context("Input SlabVar and SpikeVar of locFDR BF theoretic function Uncor")
test_that("Throws warning if SpikeVar parameter is not a numeric scalar", {
skip_on_cran()
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, SpikeVar = NA), "SpikeVar is not numeric*")
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, NA), "SpikeVar is not numeric*")
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, SpikeVar = "A"), "SpikeVar is not numeric*")
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, "A"), "SpikeVar is not numeric*")
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, SpikeVar = 1:2), "SpikeVar is not a scalar*")
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, 1:2), "SpikeVar is not a scalar*")
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, SpikeVar = -1), "SpikeVar is not positive*")
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, 0), "SpikeVar is not positive*")
})
test_that("Throws warning if SpikeVar parameter is not a numeric scalar", {
skip_on_cran()
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, SlabVar = NA), "SlabVar is not numeric*")
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, SpikeVar = 0.01, NA), "SlabVar is not numeric*")
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, SlabVar = "A"), "SlabVar is not numeric*")
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, SpikeVar = 0.01, "A"), "SlabVar is not numeric*")
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, SlabVar = 1:2), "SlabVar is not a scalar*")
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, SpikeVar = 0.01, 1:2), "SlabVar is not a scalar*")
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, SlabVar = -1), "SlabVar is not positive*")
expect_warning(analytic_locFDR_BF_uncor(1:10, 1:10, SpikeVar = 0.01, 0), "SlabVar is not positive*")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.