Description Usage Arguments Value Author(s) Examples
Plots succession of actions, observations and belief states given the list of past actions and observations
1 2 | plot_stream(p0, pm, d0, dm, ds, V, Cm, Cs, state_prior,
actions, observations, disc = 0.95, size = 1)
|
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. |
actions |
List of past actions. Values in c('Manage','Survey','Stop'). Has to have the same length as obs. |
observations |
List of past observations. Values in c('Seen','Not_seen'). Has to have the same length as act. |
disc |
Discount factor used to compute the policy (default 0.95) |
size |
Size of the text on the graph (default 1) |
Plot.
Luz Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | ## 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
state_prior <- c(1,0)
actions <- c('Manage', 'Manage', 'Survey','Stop')
observations <- c('Not_seen','Not_seen','Not_seen','Seen')
plot_stream(p0, pm, d0, dm, ds, V, Cm, Cs, state_prior,
actions, observations, disc = 0.95, size = 1)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.