1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
context("test-plot_compare_profiles")
# Load mutation data
mut_mat <- readRDS(system.file("states/mut_mat_data.rds",
package = "MutationalPatterns"
))
# Load nmf data
nmf_res <- readRDS(system.file("states/nmf_res_data.rds",
package = "MutationalPatterns"
))
# Compare profiles
output <- plot_compare_profiles(mut_mat[, 1],
nmf_res$reconstructed[, 1],
profile_names = c("Original", "Reconstructed")
)
output_condensed <- plot_compare_profiles(mut_mat[, 1],
nmf_res$reconstructed[, 1],
profile_names = c("Original", "Reconstructed"),
condensed = TRUE
)
output_yaxis <- plot_compare_profiles(mut_mat[, 1],
nmf_res$reconstructed[, 1],
profile_ymax = 0.3,
diff_ylim = c(-0.03, 0.03)
)
# Perform tests
test_that("Output has correct class", {
expect_true(inherits(output, c("gg")))
expect_true(inherits(output_condensed, c("gg")))
expect_true(inherits(output_yaxis, c("gg")))
})
|
