Add tests for simple simulation

DESCRIPTION

 Package: splatter
 Type: Package
 Title: Simple Simulation of Single-cell RNA Sequencing Data
-Version: 0.4.2
+Version: 0.4.3
 Date: 2016-10-12
 Author: Luke Zappia
 Authors@R: as.person(c(

NAMESPACE

@@ -30,6 +30,7 @@ importFrom(stats,rbinom)
 importFrom(stats,rchisq)
 importFrom(stats,rgamma)
 importFrom(stats,rlnorm)
+importFrom(stats,rnbinom)
 importFrom(stats,rnorm)
 importFrom(stats,rpois)
 importFrom(stats,runif)

R/simulate-simple.R

@@ -23,6 +23,7 @@
 #' @examples
 #' sim <- simSimple()
 #' @export
+#' @importFrom stats rgamma rnbinom
 simSimple <- function(params = defaultParams(), verbose = TRUE, ...) {
 
     if (verbose) {message("Getting parameters...")}

tests/testthat/test-simulate-simple.R

+context("simple simulation")
+
+test_that("simple simulation output is valid", {
+  expect_true(validObject(simSimple()))
+})