From ebda93f8f5e0d34be6b5eeabcd1f00ca01a1ba63 Mon Sep 17 00:00:00 2001
From: Anthony Ebert <anthonyebert@gmail.com>
Date: Thu, 6 Apr 2017 21:11:08 +1000
Subject: [PATCH] fix

---
 DESCRIPTION | 4 ++--
 NAMESPACE   | 1 +
 R/utils.R   | 1 +
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 1e03b1f..a303fbe 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -13,9 +13,9 @@ LazyData: true
 Imports:
     stats,
     Rcpp,
-    tidyr, 
+    tidyr,
     dplyr
-RoxygenNote: 5.0.1.9000
+RoxygenNote: 5.0.1
 Suggests:
     knitr,
     rmarkdown,
diff --git a/NAMESPACE b/NAMESPACE
index 1ecf162..c42f162 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -7,6 +7,7 @@ export(QDC)
 export(as.server.list)
 export(as.server.stepfun)
 export(average_queue)
+export(create_batches)
 export(lag_step)
 export(ql_summary)
 export(queue)
diff --git a/R/utils.R b/R/utils.R
index 05223f1..2a5e589 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -143,6 +143,7 @@ as.server.list <- function(times, init){
 #' @param arrival_dist a distribution whose support is strictly positive. Either as an object or a non-empty character string. It represents the distribution of arrival times.
 #' @param service_rate a strictly positive number representing the rate parameter in the exponential distribution for the service times.
 #' @param time a number greater than or equal to zero.
+#' @export
 create_batches <- function(data, arrival_dist, service_rate = NULL, time = 0){
 
   output_df <- dplyr::data_frame(arrivals = time + do_func_ignore_things(data, arrival_dist))