File: test-pool_mut_matrix.R

package info (click to toggle)
r-bioc-mutationalpatterns 3.8.1%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 5,336 kB
  • sloc: sh: 8; makefile: 2
file content (18 lines) | stat: -rw-r--r-- 430 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
context("test-pool_mut_matrix")

# Get mut_mat
mut_mat <- readRDS(system.file("states/mut_mat_data.rds",
  package = "MutationalPatterns"
))
grouping <- c(rep("colon", 3), rep("intestine", 3), rep("liver", 3))


output <- pool_mut_mat(mut_mat, grouping)

test_that("Output has correct class", {
  expect_true(inherits(output, c("matrix")))
})

test_that("Output has correct dimensions", {
  expect_equal(dim(output), c(96, 3))
})