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)
}
haoeric/cytofkit_devel documentation built on May 17, 2019, 2:29 p.m.