Create a function that replicates an analysis for all time series in a dataset

This wrapper takes as input, some analysis function, fun, and returns a function that will run that analysis function on all the time series in a dataset. Some post-processing attempts to handle merging of the output in a sensible way.

analysis_wrapper(fun)

Arguments

fun	the analysis function

Value

a function that takes in a dataset and optional arguments, and returns a data.frame or tibble with the combined results, and an "id" column with the name of the species

Examples

if (FALSE) {
  sgs_data <- MATSS::get_sgs_data()
  summarize_dataset <- analysis_wrapper(ts_summary)
  summarize_dataset(sgs_data)
}