# Set file path
filepath <- system.file("extdata", package = "FishDiveR")
# Load archive_days
archive_days <- readRDS(file.path(filepath, "data/archive_days.rds"))
# Run create_wavelet function
my.w <- create_wavelet(
archive = archive_days,
tag_ID = "data",
wv_period_hours = 24,
sampling_frequency = NULL,
allow_irregular_sampling = FALSE,
load_existing_wavelet = FALSE,
suboctaves = 12,
lower_period_mins = 30,
upper_period_hours = 24,
pval = FALSE,
output = TRUE,
output_folder = tempdir(),
verbose = TRUE,
plot_wavelet = FALSE,
max_period_ticks = 10,
plot_width = 800,
plot_height = 400,
interactive_mode = FALSE
)
Run the code above in your browser using DataLab