tests/testthat/test-alignment_score.R

In EvaYiwenWang/PLSDAbatch: PLSDA-batch

test_that("checking alignment_score", {
    data('sponge_data')
    library(TreeSummarizedExperiment)

    X <- assays(sponge_data)$Clr_value
    batch <- rowData(sponge_data)$Y.bat
    names(batch) <- rownames(sponge_data)
    res.alscore <- alignment_score(data = X, batch = batch, var = 0.95, k = 3, ncomp = 20)
    expect_is(res.alscore, 'numeric')
    expect_equal(round(res.alscore, digits = 3), 0.054)
 })