#'Get volumetrically averaged hypolimnion temp
#'@details A metric function used like an rLakeAnalyzer function to be
#'called by \code{\link{sim_metrics}}
#'@param wtr a numeric vector of water temperature in degrees C.
#'@param depths a numeric vector corresponding to the depths (in m) of the wtr measurements
#'@param bthA a numeric vector of cross sectional areas (m^2) corresponding to bthD depths
#'@param bthD a numeric vector of depths (m) which correspond to areal measures in bthA
#'
#'@importFrom rLakeAnalyzer layer.temperature
#'
#'@seealso \code{\link{sim_metrics}}, \code{\link{compare_to_field}}, \code{\link{validate_sim}}
#'@export
hypo.temperature <- function(wtr, depths, bthA, bthD){
md = rLakeAnalyzer::meta.depths(wtr, depths)
if(is.na(md[1])){
avg_temp = NA
}else{
avg_temp = layer.temperature(md[2],max(depths), wtr=wtr, depths=depths, bthA=bthA, bthD=bthD)
}
return(avg_temp)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.