extract_benefits <- function(tree_data) {
`:=` = NULL
tree_data[, "benefit_value" := ifelse(tree_data$y1 == tree_data$y2, tree_data$y1, eco_interp(x = tree_data$dbh_val, x1 = tree_data$x1, x2 = tree_data$x2, y1 = tree_data$y1, y2 = tree_data$y2))]
tree_data$benefit_value <- round(tree_data$benefit_value, 4)
return(tree_data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.