Nothing
context("Regression tests for pacotestRvineSeq")
context("unit tests for pacotest with options:
testType=CCC, grouping = TreeCCC, finalComparison = all, withEstUncert = TRUE")
test_that("pacotestRvineSeq1", {
properties = c('testType', 'grouping', 'finalComparison', 'withEstUncert', 'estUncertWithRanks')
values = c('CCC', 'TreeCCC', 'all', 'TRUE', 'FALSE')
thisTestsInd = filterPacotestOptionLists(pacotestOptions, properties, values)
maxNTests = length(pacotestOptions)
resPacotestComputed = matrix(NA, maxNTests, 3)
for (iTest in thisTestsInd)
{
set.seed(seedsPerTest[iTest])
xx = pacotestRvineSeq(data5, rvmHatData5, pacotestOptions[[iTest]], 0.05)$pValues
resPacotestComputed[iTest,1:3] = c(xx[3,1:2], xx[2,1])
expect_equal(resPacotestComputed[iTest,1:3], hardCodedResPacotestRvineSeq[iTest,1:3], tolerance = 1e-2)
}
})
context("unit tests for pacotest with options:
testType=CCC, grouping = TreeEC, finalComparison = pairwiseMax, withEstUncert = FALSE")
test_that("pacotestRvineSeq2", {
testthat::skip_on_cran()
properties = c('testType', 'grouping', 'finalComparison', 'withEstUncert', 'estUncertWithRanks')
values = c('CCC', 'TreeEC', 'pairwiseMax', 'FALSE', 'FALSE')
thisTestsInd = filterPacotestOptionLists(pacotestOptions, properties, values)
maxNTests = length(pacotestOptions)
resPacotestComputed = matrix(NA, maxNTests, 3)
for (iTest in thisTestsInd)
{
set.seed(seedsPerTest[iTest])
xxPacotestOptions = pacotestset(pacotestOptions[[iTest]], groupedScatterplots = TRUE, decisionTreePlot = TRUE)
xx = pacotestRvineSeq(data5, rvmHatData5, xxPacotestOptions, 0.05)$pValues
resPacotestComputed[iTest,1:3] = c(xx[3,1:2], xx[2,1])
expect_equal(resPacotestComputed[iTest,1:3], hardCodedResPacotestRvineSeq[iTest,1:3], tolerance = 1e-2)
}
})
context("unit tests for pacotest with options:
testType=CCC, grouping = TreeEC, finalComparison = all, withEstUncert = FALSE")
test_that("pacotestRvineSeq3", {
testthat::skip_on_cran()
properties = c('testType', 'grouping', 'finalComparison', 'withEstUncert', 'estUncertWithRanks')
values = c('CCC', 'TreeEC', 'all', 'FALSE', 'FALSE')
thisTestsInd = filterPacotestOptionLists(pacotestOptions, properties, values)
maxNTests = length(pacotestOptions)
resPacotestComputed = matrix(NA, maxNTests, 3)
for (iTest in thisTestsInd)
{
set.seed(seedsPerTest[iTest])
xxPacotestOptions = pacotestset(pacotestOptions[[iTest]], groupedScatterplots = TRUE, decisionTreePlot = TRUE)
xx = pacotestRvineSeq(data5, rvmHatData5, xxPacotestOptions, 0.05)$pValues
resPacotestComputed[iTest,1:3] = c(xx[3,1:2], xx[2,1])
expect_equal(resPacotestComputed[iTest,1:3], hardCodedResPacotestRvineSeq[iTest,1:3], tolerance = 1e-2)
}
})
context("unit tests for pacotest with options:
testType=CCC, grouping = SumMedian, withEstUncert = FALSE")
test_that("pacotestRvineSeq4", {
testthat::skip_on_cran()
properties = c('testType', 'grouping', 'withEstUncert')
values = c('CCC', 'SumMedian', 'FALSE')
thisTestsInd = filterPacotestOptionLists(pacotestOptions, properties, values)
maxNTests = length(pacotestOptions)
resPacotestComputed = matrix(NA, maxNTests, 3)
for (iTest in thisTestsInd)
{
set.seed(seedsPerTest[iTest])
xxPacotestOptions = pacotestset(pacotestOptions[[iTest]], groupedScatterplots = TRUE, decisionTreePlot = TRUE)
xx = pacotestRvineSeq(data5, rvmHatData5, xxPacotestOptions, 0.05)$pValues
resPacotestComputed[iTest,1:3] = c(xx[3,1:2], xx[2,1])
expect_equal(resPacotestComputed[iTest,1:3], hardCodedResPacotestRvineSeq[iTest,1:3], tolerance = 1e-2)
}
})
context("unit tests for pacotest with options:
testType=CCC, grouping = ProdThirdsII, withEstUncert = FALSE")
test_that("pacotestRvineSeq5", {
testthat::skip_on_cran()
properties = c('testType', 'grouping', 'withEstUncert')
values = c('CCC', 'ProdThirdsII', 'FALSE')
thisTestsInd = filterPacotestOptionLists(pacotestOptions, properties, values)
maxNTests = length(pacotestOptions)
resPacotestComputed = matrix(NA, maxNTests, 3)
for (iTest in thisTestsInd)
{
set.seed(seedsPerTest[iTest])
xxPacotestOptions = pacotestset(pacotestOptions[[iTest]], groupedScatterplots = TRUE, decisionTreePlot = TRUE)
xx = pacotestRvineSeq(data5, rvmHatData5, xxPacotestOptions, 0.05)$pValues
resPacotestComputed[iTest,1:3] = c(xx[3,1:2], xx[2,1])
expect_equal(resPacotestComputed[iTest,1:3], hardCodedResPacotestRvineSeq[iTest,1:3], tolerance = 1e-2)
}
})
context("unit tests for pacotest with options:
testType=CCC, grouping = SumThirdsIII, withEstUncert = FALSE")
test_that("pacotestRvineSeq6", {
testthat::skip_on_cran()
properties = c('testType', 'grouping', 'withEstUncert')
values = c('CCC', 'SumThirdsIII', 'FALSE')
thisTestsInd = filterPacotestOptionLists(pacotestOptions, properties, values)
maxNTests = length(pacotestOptions)
resPacotestComputed = matrix(NA, maxNTests, 3)
for (iTest in thisTestsInd)
{
set.seed(seedsPerTest[iTest])
xxPacotestOptions = pacotestset(pacotestOptions[[iTest]], groupedScatterplots = TRUE, decisionTreePlot = TRUE)
xx = pacotestRvineSeq(data5, rvmHatData5, xxPacotestOptions, 0.05)$pValues
resPacotestComputed[iTest,1:3] = c(xx[3,1:2], xx[2,1])
expect_equal(resPacotestComputed[iTest,1:3], hardCodedResPacotestRvineSeq[iTest,1:3], tolerance = 1e-2)
}
})
context("unit tests for pacotest with options:
testType=VI")
test_that("pacotestRvineSeq7", {
properties = c('testType')
values = c('VI')
thisTestsInd = filterPacotestOptionLists(pacotestOptions, properties, values)
maxNTests = length(pacotestOptions)
resPacotestComputed = matrix(NA, maxNTests, 3)
for (iTest in thisTestsInd)
{
set.seed(seedsPerTest[iTest])
xx = pacotestRvineSeq(data5, rvmHatData5, pacotestOptions[[iTest]], 0.05)$pValues
resPacotestComputed[iTest,1:3] = c(xx[3,1:2], xx[2,1])
expect_equal(resPacotestComputed[iTest,1:3], hardCodedResPacotestRvineSeq[iTest,1:3], tolerance = 1e-2)
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.