diff --git a/NAMESPACE b/NAMESPACE
index cb5e304..c8cdb16 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -5,6 +5,8 @@ S3method(plot,fcwtr_scalogram)
 export(fcwt)
 export(fcwt_batch)
 importFrom(graphics,plot)
+importFrom(utils,head)
 importFrom(utils,setTxtProgressBar)
+importFrom(utils,tail)
 importFrom(utils,txtProgressBar)
 useDynLib(fCWTr, .registration = TRUE)
diff --git a/R/fcwt_batch.R b/R/fcwt_batch.R
index 105c9e7..ef13688 100644
--- a/R/fcwt_batch.R
+++ b/R/fcwt_batch.R
@@ -64,11 +64,12 @@
 #'     sample_freq = 44100,
 #'     freq_begin = 100,
 #'     freq_end = 11000,
-#'     n_freqs = 10,
+#'     n_freqs = 30,
 #'     sigma = 10,
-#'     max_batch_size = 50000,
-#'     time_resolution = 0.001
+#'     time_resolution = 0.01
 #'   )
+#'
+#' plot(res)
 fcwt_batch <- function(signal,
                        sample_freq,
                        n_freqs,
diff --git a/R/fcwtr_scalogram.R b/R/fcwtr_scalogram.R
index c2c8dfd..7f6675f 100644
--- a/R/fcwtr_scalogram.R
+++ b/R/fcwtr_scalogram.R
@@ -103,6 +103,8 @@ sc_dim_time <- function(x) {
 #' @return Returns a vector of two values, the first and the last time index
 #' that guarantee that all data is available and trustable (no boundary effects).
 #' @noRd
+#' @importFrom utils head
+#' @importFrom utils tail
 sc_coi_time_interval <- function(x) {
   stopifnot(inherits(x, "fcwtr_scalogram"))
 
diff --git a/man/fcwt_batch.Rd b/man/fcwt_batch.Rd
index 4451c7a..62376af 100644
--- a/man/fcwt_batch.Rd
+++ b/man/fcwt_batch.Rd
@@ -107,11 +107,12 @@ res <-
     sample_freq = 44100,
     freq_begin = 100,
     freq_end = 11000,
-    n_freqs = 10,
+    n_freqs = 30,
     sigma = 10,
-    max_batch_size = 50000,
-    time_resolution = 0.001
+    time_resolution = 0.01
   )
+
+plot(res)
 }
 \seealso{
 \code{\link[=fcwt]{fcwt()}}