Overstory biomass

[bpbond]

Removed from #17 (see this comment).

  # bring in the allometry values
  allo.df <- read_csv_file("biomass_allometry_table.csv") #this has the same equations AmeriFlux uses

  # changing column names
  names(allo.df)[1] <- paste("Species")

  # Add in the allometries
  inv <- merge(inv, allo.df)

  #calculates biomass in units of kg
  inv$Biomass_kg <- inv$a.biomass * inv$DBH_cm ^ inv$b.biomass

We can consider adding fd_biomass() or something in a later version. cc @atkinsjeff

biomass_allometry_table.csv.zip

[atkinsjeff]

added calc_biomass()