tests/testthat/test_drugPerturbationSig.R

library(PharmacoGx)
require(parallel)
context("Checking drugPerturbationSig.")

test_that("Perturbation result did not change since last time", {
  data(CMAPsmall)
  drug.perturbation <- drugPerturbationSig(CMAPsmall, mDataType="rna", nthread=1)	
  expect_equal_to_reference(drug.perturbation@.Data, "drug.perturbationSmall.rds")
})

Try the PharmacoGx package in your browser

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

PharmacoGx documentation built on Feb. 28, 2021, 2 a.m.