R/tissue_scale.R

In httk: High-Throughput Toxicokinetics

#'Allometric scaling.
#'
#'Allometrically scale a tissue mass or flow based on height^{3/4}.
#'
#'@param height_ref Reference height in cm.
#'@param height_indiv Individual height in cm.
#'@param tissue_mean_ref Reference tissue mass or flow.
#'  
#'@return Allometrically scaled tissue mass or flow, in the same units as
#'  \code{tissue_mean_ref}.
#'
#'@keywords httk-pop
#'
#'@author Caroline Ring
#'
#'@references Ring, Caroline L., et al. "Identifying populations sensitive to 
#'environmental chemicals by simulating toxicokinetic variability." Environment 
#'International 106 (2017): 105-118

tissue_scale <- function(height_ref, height_indiv, tissue_mean_ref){
  
  tissue.mean.indiv <- ((height_indiv/height_ref)^(3/4))*
    tissue_mean_ref
  return(tissue.mean.indiv)
}