even more time reductions in examples and tests

lschneiderbauer · Jun 13, 2024 · a63295e · a63295e
1 parent bb16c5e
commit a63295e
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/fcwt.R b/R/fcwt.R
@@ -61,7 +61,7 @@
 #'  `dim = c(length(signal), n_freqs)`.
 #'
 #' @examples
-#' ts_sin_440 <- sin((1:44100) * 2 * pi * 440 / 44100)
+#' ts_sin_440 <- sin((1:5000) * 2 * pi * 440 / 44100)
 #'
 #' res <-
 #'   fcwt(

diff --git a/man/fcwt.Rd b/man/fcwt.Rd
diff --git a/tests/testthat/test-fcwtr_scalogram.R b/tests/testthat/test-fcwtr_scalogram.R
@@ -68,7 +68,7 @@ test_that("as.data.frame() `time_ind` columns is reasonable", {
   time <-
     as.data.frame(
     fcwt(
-      ts_sin_440,
+      ts_sin_440[1:1000],
       sample_freq = 44100,
       freq_begin = 50,
       freq_end = 1000,