data-raw/sd_table.R

In diazrenata/BBSsize: Simulate body masses for BBS routes

## code to prepare `sd_table` dataset goes here
library(BBSsize)
library(dplyr)

raw_size_dat = raw_masses
clean_size_dat = (clean_sp_size_data(raw_size_dat))


fitted_pars = (get_sd_parameters(raw_size_dat))


sd_size_dat = (add_estimated_sds(clean_size_data = clean_size_dat,
                                 sd_pars = fitted_pars))

sd_size_dat_th = add_estimated_sds(clean_size_dat, NULL)

sp_mean_size_dat = (get_sp_mean_size(sd_size_dat))

sp_mean_size_dat_th = get_sp_mean_size(sd_size_dat_th) %>%
  rename(mean_sd_th = mean_sd)

sd_table = left_join(sp_mean_size_dat, sp_mean_size_dat_th)


usethis::use_data(sd_table, overwrite = TRUE)