Nothing
#' Res_meso_SO2 - Calculates hourly mesophyll resistance for SO2
#' @param x A data frame containing hourly data of weather variables (e.g. Hum (\%), Pres (kPa), Precip (mm), Rad (W m-2), Temp (C), Wind (m s-1), Daylight (Night or Daylight))
#' @return Hourly data of mesophyll resistance for SO2 (s m-1)
#' @export
#'
#' @examples
#'
#' data(Bizkaia_data)
#' Res_meso_SO2(x = Bizkaia_data)
Res_meso_SO2 <- function(x){
db <- x
Resistance_out_of_leaf <- NA # 2800
r_m_SO2 <- rep(0 , nrow(db))
LAI_Total <- db$BAI + db$LAI
r_m_SO2[LAI_Total <= median(db$BAI)] <- Resistance_out_of_leaf # s/m
r_meso_SO2 <- cbind.data.frame(Dates = db$Dates, Resist_meso = r_m_SO2)
return(r_meso_SO2)
}
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.