# Set file path
filepath <- system.file("extdata", package = "FishDiveR")
# Load my.w wavelet object
my.w <- readRDS(file.path(filepath, "data/1_Wavelets/data_wavelet.rds"))
# Run create_wavelet_stats function on wavelet object
waveStats <- create_wavelet_stats(
wavelet = my.w,
tag_ID = "data",
output = TRUE,
output_folder = tempdir(),
verbose = TRUE
)
Run the code above in your browser using DataLab