tests/testthat/test_transpose.R

#sample dataset
data(data_norm)
testdata<-assay(data_norm)

#expected error
expect_error(DaMiR.transpose())
expect_error(DaMiR.transpose("data_norm"))

#launch function
trans_testdata <- DaMiR.transpose(testdata)

# check results
expect_true(dim(testdata)[2] == dim(trans_testdata)[1])
expect_true(dim(testdata)[1] == dim(trans_testdata)[2])
expect_is(trans_testdata, "data.frame")

Try the DaMiRseq package in your browser

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

DaMiRseq documentation built on Nov. 8, 2020, 5:53 p.m.