tests/testthat/test-simulateDataset.R

context("simulateDataset")


test_that("simulateDataset works", {

    # missing last row in data
    expect_error(simulateDataset(data = MSstatsSampleSize::OV_SRM_train[, -nrow(MSstatsSampleSize::OV_SRM_train)],
                                 annotation = MSstatsSampleSize::OV_SRM_train_annotation))

    # missing 1st row in annotation
    expect_error(simulateDataset(data = MSstatsSampleSize::OV_SRM_train,
                                 annotation = MSstatsSampleSize::OV_SRM_train_annotation[, -1]))

})

Try the MSstatsSampleSize package in your browser

Any scripts or data that you put into this service are public.

MSstatsSampleSize documentation built on Nov. 8, 2020, 4:53 p.m.