graph: Plot decision graph

Description Usage Arguments Details Value Author(s) Examples

View source: R/graph.R

Description

Plots decision graph of the solution to the problem : When to stop managing or surveying cryptic threatened species ?

Usage

1
graph(p0, pm, d0, dm, ds, V, Cm, Cs, state_prior, disc=0.95, size = 1)

Arguments

p0

Local probability of persitance : P(extant/extant, survey or stop).

pm

Local probability of persitance if manage : P(extant/extant, manage).

d0

Local probability of detection : P(present/extant, stop).

dm

Local probability of detection : P(present/extant, manage).

ds

Local probability of detection if survey : P(present/extant, survey).

V

Estimated economic value of the species ($/yr).

Cm

Estimated cost of managing ($/yr).

Cs

Estimated cost of survey ($/yr).

state_prior

Initial belief state, vector of 2 values (belief state extant and extinct), between 0 and 1.

disc

Discount factor used to compute the policy (default 0.95)

size

Size of the text on the graph (default 1)

Details

This function solves the main problem by calling the sarsop solver for POMDP.

Value

Plot.

Author(s)

Luz Pascal

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
## Not run: 
#values for Sumatran tigers
pen <- 0.1
p0 <- 1-pen
pem <- 0.05816
pm <- 1 - pem
V <- 175.133
Cm <- 18.784
Cs <- 10.840
d0 <- 0.01
dm <- 0.01
ds <- 0.78193

#Initial belief state
state_prior <- c(0.9,0.1) #extant : 0.9, extinct : 0.1

graph(p0, pm, d0, dm, ds, V, Cm, Cs, state_prior)
## End(Not run)

conservation-decisions/smsPOMDP documentation built on Oct. 27, 2020, 10:44 p.m.