From eb22e79dcbacae5c3e095583abadadeae65b1114 Mon Sep 17 00:00:00 2001
From: Luke Zappia <lazappi@users.noreply.github.com>
Date: Wed, 3 Oct 2018 14:25:37 +1000
Subject: [PATCH] Fix BASiCSEstimate tests
---
DESCRIPTION | 4 ++--
NEWS.md | 6 +++++-
tests/testthat/test-BASiCSEstimate.R | 4 ++--
3 files changed, 9 insertions(+), 5 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index b90e150..5fcd5d0 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,8 +1,8 @@
Package: splatter
Type: Package
Title: Simple Simulation of Single-cell RNA Sequencing Data
-Version: 1.5.4
-Date: 2018-08-30
+Version: 1.5.5
+Date: 2018-10-03
Author: Luke Zappia
Authors@R:
c(person("Luke", "Zappia", role = c("aut", "cre"),
diff --git a/NEWS.md b/NEWS.md
index 1a18be3..becf7c5 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,4 +1,8 @@
-## Version 1.5.3 (2018-08-30)
+## Version 1.5.5 (2018-10-03)
+
+* Fix BASiCSEstimate tests
+
+## Version 1.5.4 (2018-08-30)
* Fix installation instructions
diff --git a/tests/testthat/test-BASiCSEstimate.R b/tests/testthat/test-BASiCSEstimate.R
index f1fe32b..3e1df27 100644
--- a/tests/testthat/test-BASiCSEstimate.R
+++ b/tests/testthat/test-BASiCSEstimate.R
@@ -9,7 +9,7 @@ test_that("BASiCSEstimate works", {
spike.info <- data.frame(Name = rownames(sc_example_counts)[1:10],
Input = rnorm(10, 500, 200),
stringsAsFactors = FALSE)
- counts <- sc_example_counts[, 1:20]
+ counts <- sc_example_counts[, 1:30]
counts <- counts[rowSums(counts) != 0, ]
params <- BASiCSEstimate(counts[1:100, ],
spike.info, verbose = FALSE, progress = FALSE)
@@ -19,7 +19,7 @@ test_that("BASiCSEstimate works", {
test_that("BASiCSEstimate works without spikes", {
skip_if_not_installed("BASiCS")
set.seed(1)
- counts <- sc_example_counts[, 1:20]
+ counts <- sc_example_counts[, 1:30]
counts <- counts[rowSums(counts) != 0, ]
batch <- sample(1:2, ncol(counts), replace = TRUE)
params <- BASiCSEstimate(counts[1:100, ], batch = batch,
--
GitLab