hatchR (version 1.0.1)

predict_spawn: Predict spawning of fish

Description

Predict the spawning of fish using the backwards calculation of the effective value framework.

Usage

predict_spawn(data, dates, temperature, develop.date, model)

Value

A list with the following elements:

• days_to_develop: A numeric vector of length 1; number of predicted days to hatch or emerge.

• ef_table: An n x 4 tibble (n = number of days to hatch or emerge) with the dates, temperature, effective values, and cumulative sum of the effective values. Presented in descending order from devlop.date backward.

• dev_period: a 1x2 dataframe with the dates corresponding to when your fish's parent spawned (input with predict_phenology(spawn.date = ...)) and the date when the fish is predicted to hatch or emerge.

• model_specs: A data.frame with the model specifications.

Arguments

data

Data frame with dates and temperature.

dates

Date of temperature measurements.

temperature

Temperature measurements.

develop.date

Date of development (e.g., hatch or emergence), given as a character string (e.g., "1990-08-18"). Must be year-month-day in format shown.

model

A data.frame with a column named "expression" or a character vector giving model specifications. Can be obtained using model_select() or using you own data to obtain a model expression (see fit_model).

References

Sparks, M.M., Falke, J.A., Quinn, T.A., Adkinson, M.D., Schindler, D.E. (2019). Influences of spawning timing, water temperature, and climatic warming on early life history phenology in western Alaska sockeye salmon. Canadian Journal of Fisheries and Aquatic Sciences, 76(1), 123--135.

Examples

library(hatchR)
# get emergence mod for bull trout
bull_trout_emerge_mod <- model_select(author = "Austin et al. 2019",
                                      species = "bull trout",
                                      model = "MM",
                                      development_type = "emerge"
)

# predict spawn date using emergence date
predict_spawn(data = crooked_river,
              dates = date,
              temperature = temp_c,
              develop.date = "2015-03-21",
              model = bull_trout_emerge_mod
)