Fix BASiCSEstimate tests

DESCRIPTION

 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"),

NEWS.md

-## 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
 

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,