# saw log volume per cubic meter salable volume
share.saw.logs <- vol_assortment(40,
"beech",
"saw.logs")
share.saw.logs
# fuel wood per cubic meter salable volume
share.fuel.wood <- (vol_salable(40,
"beech") -
vol_skidded(40,
"beech")) /
vol_salable(40,
"beech")
share.fuel.wood
# pulp wood per cubic meter salable volume
share.pulp.wood <- 1 - share.saw.logs - share.fuel.wood
# saw log volume per cubic meter volume over bark
vol_assortment(40,
"beech",
"saw.logs") *
vol_salable(40,
"beech")
Run the code above in your browser using DataLab