#' Single Tree volume
#'
#' Compute stem volume of single trees using Norwegian single tree volume functions
#'
#' @name volumeTree
#'
#' @param d Diameter in breast height in centimeter
#' @param h Tree height in meter
#' @param sp vektor med treslag; 1=gran, 2=furu, 3=lauv
#' @param aboveBark a logical value indicating if volume above (TRUE) or below bark (FALSE).
#' @return v volum in liters (dm3)
#' @seealso volumeDoubbleBark
#' @details Dette er en hovedfuksjon.
#' @rdname volumeTree
#' @author Hans Ole Oerka \email{hans.ole.orka@@gmail.org}
#' @export
#TODO: sjekke at alle input vektorer er like!
volumeTree <- function(d,h,sp,aboveBark=TRUE){
vs <-volumeTreeSpruce(d,h,aboveBark=aboveBark)
vp <-volumeTreePine(d,h,aboveBark=aboveBark)
vb <-volumeTreeBirch(d,h,aboveBark=aboveBark)
v <- ifelse(sp == 1,vs,ifelse(sp == 2,vp,ifelse(sp == 3,vb,NA)))
return(v)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.