## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  out.width = "100%"
)

## ----setup--------------------------------------------------------------------
library(fCWTr)

## -----------------------------------------------------------------------------
sigma_res(sigma = 1, u(440, "Hz"))

## -----------------------------------------------------------------------------
sigma_from_freq_res(u(15, "Hz"), u(440, "Hz"))

## -----------------------------------------------------------------------------
sigma_res(sigma = 19, u(440, "Hz"))

## -----------------------------------------------------------------------------
sigma_res(sigma = 1, u(440, "Hz"))

## -----------------------------------------------------------------------------
library(ggplot2)

fcwt(
  ts_piano_sample,
  x_sample_freq = u(44.1, "kHz") / 4,
  sigma = 1,
  y_sample_freq = u(10, "Hz"),
  freq_begin = u(220, "Hz"),
  freq_end = u(440, "Hz") * 4,
  n_freqs = 12 * 5 * 3
) |>
  plot()

## -----------------------------------------------------------------------------
sigma_res(sigma = 19, u(440, "Hz"))

## -----------------------------------------------------------------------------

fcwt(
  ts_piano_sample,
  x_sample_freq = u(44.1, "kHz") / 4,
  sigma = 20,
  y_sample_freq = u(10, "Hz"),
  freq_begin = u(220, "Hz"),
  freq_end = u(440, "Hz") * 4,
  n_freqs = 12 * 5 * 3
) |>
  plot()

## -----------------------------------------------------------------------------
sigma_res(sigma = 100, u(440, "Hz"))

## -----------------------------------------------------------------------------

fcwt(
  ts_piano_sample,
  x_sample_freq = u(44.1, "kHz") / 4,
  sigma = 100,
  y_sample_freq = u(10, "Hz"),
  freq_begin = u(220, "Hz"),
  freq_end = u(440, "Hz") * 4,
  n_freqs = 12 * 5 * 3
) |>
  plot()