# Set file path
filepath <- system.file("extdata", package = "FishDiveR")
# Load archive_days
archive_days <- readRDS(file.path(filepath, "data/archive_days.rds"))
# Run create_depth_stats function
depthStats <- create_depth_stats(
archive = archive_days,
tag_ID = "data",
diel = TRUE,
sunrise_time = "06:00:00",
sunset_time = "18:00:00",
GPS = file.path(filepath, "data/GPS.csv"),
sunset_type = "civil",
output = TRUE,
output_folder = tempdir(),
verbose = TRUE
)
Run the code above in your browser using DataLab