R/BAFormula.R

In mikemahoney218/BeaverForaging:

#' A formula for calculating basal area from stem diameter. Not designed for
#' external use, so performs no error catching. "4" refers to the radius of
#' the larger plot, in meters. "10000" converts the diameter, in centimeters,
#' into square meters.
#'
#' @param x A dataframe containing a column DBHAvg to be used in calculating DBH
#' @internal
#'

BAFormula <- function(x){
  return((pi / (4 * 10000)) * x$DBHAvg * x$DBHAvg)
}