tests/testthat/test_restrictFeatureMat.R

test_that("restrictFeatureMat output is correct", {
	
	X <- matrix(1:25, nrow=5)
	rownames(X) <- c("expA", "expB", "copC", "mutC", "expD")
	Xrestricted <- restrictFeatureMat(geneSet = c("B", "C", "NOT_THERE"), X)
	
	expect_identical(X[c("expB", "copC", "mutC"), ], Xrestricted)
	 
})

Try the rcellminer package in your browser

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

rcellminer documentation built on Nov. 26, 2020, 2:02 a.m.