tree_vol <- c(0.03, 0.10, 1.00, 2.00, 5.00)
harvest_vol <- c(5.00, 10.00, 50.00, 25.00, 10.00)
fuel_cons_harvester_2(tree_vol, harvest_vol, TRUE)
fuel_cons_harvester_2(tree_vol, harvest_vol, FALSE)
Run the code above in your browser using DataLab