#' @title Fatality Estimator
#' @author Joe Statwick (Arcadis)
#'
#' @description This function is for estimating the fatality rate of birds based on an observed number of carcasses.
#' @param carcasses Number of carcasses found
#' @param FatEfficiency Searcher efficiency rate for large birds
#' @param FatRemoval Carcass removal rate for large birds at search interval
#' @export
#'
FatEst<-function(carcasses,FatEfficiency = 1,FatPersistance = 0.82){
Fatestimate<-carcasses/FatEfficiency/FatPersistance
return(Fatestimate)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.