tests/testthat/test_DistalLungEpithelium.R

context("DistalLungEpithelium")

data("DistalLungEpithelium")
expect_true(nrow(DistalLungEpithelium) == 3397)
expect_true(ncol(DistalLungEpithelium) == 80)

data("pca.DistalLungEpithelium")
expect_true(nrow(pca.DistalLungEpithelium) == 80)
expect_true(ncol(pca.DistalLungEpithelium) == 2)

data("label.DistalLungEpithelium")
expect_true(length(label.DistalLungEpithelium) == 80)

Try the scTGIF package in your browser

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

scTGIF documentation built on Nov. 8, 2020, 5:24 p.m.