Creates object of class angledist

Description

Creates a leaf angle distribution object. Other functions in the LeafAngle package use this type of object quite conveniently. Nearly all distributions summarized in Wang et al. (2007) are implemented.

Usage

angledist(distribution, distpars = NA)

Arguments

Details

Only three of the distributions take a parameter, these are 'ellipsoid' and 'rotatedell', and 'twoparbeta'. For the first two, the parameter X needs to be provided, for the 'twoparbeta' the parameters alphamean and tvar (see Wang et al. 2007).

Value

An object of class AngleDist. Simply a list of components, in this useage only two are set: distribution and distpars. Other components are set when fitting a distribution to data, see fitdistribution.

Author(s)

Remko Duursma

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, 106-122.

See Also

fitdistribution, fitalldistributions

Examples

mydist <- angledist('ellipsoid', 1.1)
plot(mydist)

Results

R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(LeafAngle)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/LeafAngle/angledist.Rd_%03d_medium.png", width=480, height=480)
> ### Name: angledist
> ### Title: Creates object of class angledist
> ### Aliases: angledist
> ### Keywords: misc
> 
> ### ** Examples
> 
> 
> mydist <- angledist('ellipsoid', 1.1)
> plot(mydist)
> 
> 
> 
> 
> 
> dev.off()
null device 
          1 
>