R/interPlanophile.R

Defines functions interPlanophile

Documented in interPlanophile

#' Compute the fraction leaf area of Planophile distribution given leaf angle intervals (in degree).
#' @description Compute the fraction leaf area of Planophile 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 Planophile 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
#' interPlanophile(40,50)
#' @export
#' 


interPlanophile<-function(AngleLower, AngleUpper)
{
  planophileLAD<-function(LeafAngle)
  {
    #planphile- horizontal leaves most frequenct
    2*(1+cos(2*LeafAngle))/pi 
  } 
  pi180<-pi/180.0
  fraction<-integrate(planophileLAD, lower=AngleLower*pi180, upper=AngleUpper*pi180)
  fraction[[1]]
}

Try the RLeafAngle package in your browser

Any scripts or data that you put into this service are public.

RLeafAngle documentation built on June 20, 2017, 9:10 a.m.