test_that("multi_cond_data works with multi-condition normalization",{ data(multi_cond_data) res<-digi_norm( data=multi_cond_data, conditions="Brain_region", replicates="Sample_id", weight_resolution=10 ) expect_s3_class(res, "digi_norm") expect_true(is.data.frame(res)) }) test_that("single_cond_data works with single-condition normalization",{ data(single_cond_data) expect_warning( res<-digi_norm( data=single_cond_data, conditions=NULL, replicates="Sample_id", weight_resolution=10 ), "`conditions` is NULL" ) expect_s3_class(res, "digi_norm") expect_true(is.data.frame(res)) })