Nothing
#' Interceptation
#' @title Canopy interceptation
#' @description This function calculates the amount of rain intercepted in the canopy.
#' @param R Rainfall
#' @param Rstar The maximum amount which the canopy intercepts
#' @return canopy interceptation
#' @examples CInt_f(R = 10, Rstar = 3)
#' @export CInt_f
#' @return
CInt_f = function(R, Rstar){
if(R <= Rstar){itcp = R}
else{itcp = Rstar}
return(itcp)
}
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.