R/basalArea.R

In johngodlee/compInd: Forest tree-tree competition indices

#' Calculate basal area from DBH 
#'
#' @param x numeric vector of DBH values
#'
#' @return numeric vector of basal area values 
#' 
#' @examples 
#' a <- c(1.23, 5.67, 10.11)
#' basalArea(a)
#'
#' @export
#' 
basalArea <- function(x){ 
  pi * (x/2)^2
}