Calculate the individual cost-effectiveness of each conservation project
in a project prioritization
(Joseph, Maloney & Possingham 2009).
Note that project cost-effectiveness cannot be calculated for problems with minimum set objectives because the objective function for these problems is to minimize cost and not maximize some measure of biodiversity persistence.
tibble::tibble() table containing the following
character name of each project
numeric cost of each project.
numeric benefit for each project. For a
given project, this is calculated as the difference between (i) the
objective value for a solution containing all of the management actions
associated with the project and all zero cost actions, and (ii) the
objective value for a solution containing the baseline project.
numeric cost-effectiveness of each project.
For a given project, this is calculated as the difference between the
the benefit for the project and the benefit for the baseline project,
divided by the cost of the project. Note that the baseline
project will have a
NaN value because it has a zero cost.
numeric rank for each project according to
is cost-effectiveness value. The project with a rank of one is the
most cost-effective project. Ties are accommodated using averages.
Joseph LN, Maloney RF & Possingham HP (2009) Optimal allocation of resources among threatened species: A project prioritization protocol. Conservation Biology, 23, 328–338.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
# load data data(sim_projects, sim_features, sim_actions) # print project data print(sim_projects) # print action data print(sim_features) # print feature data print(sim_actions) # build problem p <- problem(sim_projects, sim_actions, sim_features, "name", "success", "name", "cost", "name") %>% add_max_richness_objective(budget = 400) %>% add_feature_weights("weight") %>% add_binary_decisions() # print problem print(p) # calculate cost-effectiveness of each project pce <- project_cost_effectiveness(p) # print project costs, benefits, and cost-effectiveness values print(pce) # plot histogram of cost-effectiveness values hist(pce$ce, xlab = "Cost effectiveness", main = "")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.