From a63295e758f4af051479128077b0cc1438ddbabd Mon Sep 17 00:00:00 2001
From: Lukas Schneiderbauer <lukas.schneiderbauer@gmail.com>
Date: Thu, 13 Jun 2024 22:25:03 +0200
Subject: [PATCH] even more time reductions in examples and tests

---
 R/fcwt.R                              | 2 +-
 man/fcwt.Rd                           | 2 +-
 tests/testthat/test-fcwtr_scalogram.R | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/fcwt.R b/R/fcwt.R
index 83b4306..6ee08e0 100644
--- 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
index 90ef60c..451e368 100644
--- a/man/fcwt.Rd
+++ b/man/fcwt.Rd
@@ -71,7 +71,7 @@ noise-resistant time–frequency analysis.
 Nat Comput Sci 2, 47–58 (2022). \doi{10.1038/s43588-021-00183-z}
 }
 \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/tests/testthat/test-fcwtr_scalogram.R b/tests/testthat/test-fcwtr_scalogram.R
index eb08cc0..e83ca68 100644
--- 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,