bark_factor

marcosdanieldasilva · May 6, 2024 · 668a868 · 668a868
1 parent 38c67ab
commit 668a868
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 7 deletions.
diff --git a/src/ForestMensuration.jl b/src/ForestMensuration.jl
@@ -39,6 +39,7 @@ module ForestMensuration
     adjr2,
     aic,
     aicc,
+    bark_factor,
     bic,
     coef,
     coef_table,

diff --git a/src/cubage.jl b/src/cubage.jl
@@ -51,10 +51,10 @@ The bark factor is used to estimate the volume without bark by considering the r
 
 # Example
 # Calculate bark factor
-bk = bark_factor(d, e)
+k = bark_factor(d, e)
 
 # Calculate total volume without bark
-total_volume_without_bark = total_volume * bk^2
+total_volume_without_bark = total_volume * k^2
 """
 @inline bark_factor(d::Vector{<:Real}, e::Vector{<:Real}) :: Float64 = 1 - (sum(e) / sum(d))
 
@@ -151,15 +151,15 @@ end
 function cubage(method::Type{<:CubingMethod}, h::Vector{<:Real}, d::Vector{<:Real}, e::Vector{<:Real}; dbh::Float64=1.3)
   cubage_table = cubage(method, h, d, dbh = dbh)
   # bark factor
-  insertcols!(cubage_table, :bf => bark_factor(d, e))
+  insertcols!(cubage_table, :k => bark_factor(d, e))
   # total volume without bark
-  insertcols!(cubage_table, :vtwb => cubage_table.vt .* cubage_table.bf.^2)
+  insertcols!(cubage_table, :vtwb => cubage_table.vt .* cubage_table.k.^2)
   # cylinder volume without bark
-  insertcols!(cubage_table, :v0wb => cubage_table.v0 .* cubage_table.bf.^2)
+  insertcols!(cubage_table, :v0wb => cubage_table.v0 .* cubage_table.k.^2)
   # cone volume without bark
-  insertcols!(cubage_table, :vnwb => cubage_table.vn .* cubage_table.bf.^2)
+  insertcols!(cubage_table, :vnwb => cubage_table.vn .* cubage_table.k.^2)
   # bole volume without bark
-  insertcols!(cubage_table, :viwb => cubage_table.vi .* cubage_table.bf.^2)
+  insertcols!(cubage_table, :viwb => cubage_table.vi .* cubage_table.k.^2)
   return cubage_table
 end
-Original file line number
+Diff line change
@@ Expand Up / @@ -39,6 +39,7 @@ module ForestMensuration @@
         adjr2,
         aic,
         aicc,
+        bark_factor,
         bic,
         coef,
         coef_table,
@@ Expand Down @@