tests/testthat/test_specMatCalc.R

# correctUnmix
context("specMatCalc")
data(unmixCtrls)
testUnmixSet <- unmixCtrls[c(1,2,12,15)]

testSpecMat <- specMatCalc(testUnmixSet, groupNames = c("Beads_"),
                       autoFluoName = "PBMC_unstained.fcs")

test_that("massOrFlowTransResult", {
    expect_equal(1, testSpecMat[1,"R2-A"])
})

Try the flowSpecs package in your browser

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

flowSpecs documentation built on Nov. 8, 2020, 5:39 p.m.