Fix use of 'sca_motif_tiny' dataset

juliangehring · Nov 2, 2015 · 3f7a5c5 · 3f7a5c5
1 parent d70ac4e
commit 3f7a5c5
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 10 deletions.
diff --git a/man/motif-functions.Rd b/man/motif-functions.Rd
@@ -51,5 +51,5 @@ motifMatrix(vr, group = "sampleNames", normalize = TRUE)
 \examples{
 data(sca_motifs_tiny)
 
-motifMatrix(sca_motifs, group = "study")
+motifMatrix(sca_motifs_tiny, group = "study")
 }
diff --git a/tests/testthat/test-SomaticSignatures.R b/tests/testthat/test-SomaticSignatures.R
@@ -135,24 +135,20 @@ test_that("datasets for processing are available", {
 
 })
 
+
 context("motifMatrix")
 
 test_that("'motifMatrix' works", {
 
     data(sca_motifs_tiny)
+    vr = sca_motifs_tiny
 
-    vr1 = readMutect(mutect_path)
-    vr1 = mutationContextMutect(vr1)
-    vr = readMutect(mutect_path, strip = TRUE)
-    sampleNames(vr) = ifelse(start(vr) %% 2 == 0, "T", "N")
-    vr$context = vr1$context.1
-    vr$alteration = vr1$alteration
-
-    mm = motifMatrix(vr)
+    mm = motifMatrix(vr, "study")
 
     expect_equal( nrow(mm), 96 )
-    expect_equal( ncol(mm), 2 )
+    expect_equal( ncol(mm), nlevels(vr$study) )
 
+    expect_true( all(colSums(mm) == 1) )
 })