inst/unitTests/test_cytof_dimReduction.R

test_cytof_dimReduction <- function() {
    data(iris)
    in_data <- iris[, 1:4]
    out_data <- cytof_dimReduction(in_data, method = "tsne")
    checkEquals(dim(out_data)[2], 2)
}
JinmiaoChenLab/cytofkit2 documentation built on May 12, 2022, 8:09 a.m.