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)
}

Try the cytofkit package in your browser

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

cytofkit documentation built on Nov. 1, 2018, 3:50 a.m.