tests/testthat/test-dim.R

context("test-dim")

test_that("dim works", {

  testProtExp <- testList[[1]]
  testPeptExp <- testList[[2]]
  testPE <- testList[[3]]

  expect_equal(dim(testProtExp), c(3,4))

  expect_equal(dim(testPeptExp), c(5,4))

  expect_equivalent(dim(testPE), matrix(c(3, 4, 5, 4), ncol = 2, byrow = TRUE))


})

Try the pulsedSilac package in your browser

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

pulsedSilac documentation built on Nov. 8, 2020, 5:13 p.m.