R/arousalEnergy_fun.R

In cReedHranac/batwintor: Tool for bat hibernation energetics

#' Calculate energy needed during an arousal from torpor to euthermia.
#'
#' \code{arousalEnergy} Calculate the enegry required to maintain
#'  eurthermic temperatures during an arousal from torpor.
#'
#' @param Ta ambient temperature
#' @param bat.params list of bat parameters output from \code{\link{batLoad}}
#'
#' @return returns enegry required to arouse from torpor to euthermia
#'
#' @example ExampleScripts/arousalEnergy_ex.R
#'
#' @family Arousal Functions
#'
#' @seealso  \code{\link{coolEnergy}}, \code{\link{coolTime}},
#'  \code{\link{euthermicEnergy}},
#' \code{\link{flyingEnergy}}, \code{\link{flyingTime}}
#'
#' @references McKechnie & Wolf 2004 equation 3
#'
#' @author Katie Haase
#' @export

arousalEnergy <- function(Ta, bat.params){
  with(bat.params,{
    ifelse(Ta > Ttormin,
           ((Teu - Ta)*0.1728*Mass) + (((Teu-Ta)/WR)*(Ceu*(Teu-Ta))),
           ((Teu - Ttormin)*0.1728*Mass) + (((Teu-Ttormin)/WR)*(Ceu*(Teu-Ta)))

    )
  })
}