Nothing
#' Compute the fraction leaf area of Erectophile distribution given leaf angle intervals (in degree).
#' @description Compute the fraction leaf area of Erectophile distribution given leaf angle intervals (in degree).
#' @param AngleLower The lower limit of leaf angle intervals in degree.
#' @param AngleUpper The upper limit of leaf angle intervals in degree.
#' @return Compute the fraction leaf area of Erectophile function.
#' @author Wei-Min Wang (wmwang AT gmail.com)
#' @references Wang, W. M., Li, Z. L., & Su, H. B. (2007).
#' Comparison of leaf angle distribution functions: effects on extinction coefficient and
#' fraction of sunlit foliage. Agricultural and Forest Meteorology, 143(1), 106-122.
#' @examples
#' interErectophile(40,50)
#' @export
#'
interErectophile<-function(AngleLower, AngleUpper)
{
#erectophile<-function() {
erectophileLAD<-function(LeafAngle)
{
#erectophile- vertical leaves most frequent.
2*(1-cos(2*LeafAngle))/pi
}
pi180<-pi/180.0
fraction<-integrate(erectophileLAD, lower=AngleLower*pi180, upper=AngleUpper*pi180)
fraction[[1]]
}
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.