R/WS.R

In javateak: Javanese Teak Above Ground Biomass Estimation

Defines functions WS

Documented in WS

WS <- function(d, h) {
  if(is.na(d) | is.na(h)) {
    return(NA)
  } else if (d == 0 | h == 0) {
    return(0)
  }
  WS = round(0.0287*((d^2)*h)^0.9586, 5)
  return(WS)
}

Try the javateak package in your browser