Nothing
library(testthat);
suppressMessages(require(valection));
context("run equal per overlap");
if (valection::check.for.library()) {
out.dir <- tempdir();
out.file <- paste0(out.dir, "/outfile_example.txt");
valection::run.equal.per.overlap(
budget = 5,
infile = system.file(
"extdata/infile_example.tsv",
package = "valection"
),
outfile = out.file,
seed = 123
);
samplingResult <- read.table(out.file);
file.remove(out.file);
expectedResult <- read.table("expected.run.equal.per.overlap.txt");
test_that("Equal per overlap sampling works", {
expect_equal(samplingResult, expectedResult);
});
}
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.