Nothing
#' Survival rate
#'
#' *Deprecated function*. Derives the survival rate of individuals for
#' *Reduced GUTS* models. Was replaced by [simulate()].
#'
#' The survival rate describes the survival probability at each
#' time point. The function simulates the *GUTS* scenario and appends a column
#' `survival` to the simulation result. A value of one (`1.0`) denotes that
#' all individuals survive. A value of zero (`0.0`) denotes that no individuals
#' survived.
#'
#' Only available for *Reduced GUTS* models, see [GUTS-RED-models].
#' The equations were described by EFSA (2018).
#'
#' @param scenario an `EffectScenario` to simulate
#' @param ... additional parameters passed on to [simulate()]
#'
#' @return a `data.frame` containing simulation results
#'
#' @export
#' @inherit GUTS-RED-models references
#' @seealso [GUTS-RED-models]
#'
#' @autoglobal
#' @examples
#' # calculate survival rate
#' minnow_it %>% survival()
#'
#' # plot survival over time based on a random exposure profile
#' minnow_sd %>%
#' set_exposure(data.frame(t=1:100, c=runif(100)*10)) %>%
#' survival() -> df
#' plot(df$time, df$survival, "l")
survival <- function(scenario, ...) {
if(length(scenario) > 1 | is.data.frame(scenario))
stop("multiple scenarios supplied")
lifecycle::deprecate_soft("1.2.0", "survival()", "simulate()")
if(is_GUTS(scenario)) {
df <- simulate(scenario, ...) %>%
dplyr::rename(survival=S)
return(df)
}
stop("model not supported")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.