From 50e7fd827abf5aab3bc3b0d939893f60ef5c984c Mon Sep 17 00:00:00 2001 From: Carl Boettiger Date: Mon, 30 Jul 2012 15:42:07 -0700 Subject: [PATCH] Reed vs Clark, enforcing the self-sustaining principle #17 --- inst/examples/Reed.Rmd | 2 +- inst/examples/Reed.md | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/inst/examples/Reed.Rmd b/inst/examples/Reed.Rmd index 5aa42ec..183c3ed 100644 --- a/inst/examples/Reed.Rmd +++ b/inst/examples/Reed.Rmd @@ -108,7 +108,7 @@ z_i <- function() 1 ``` {r SDP_Mat} pdfn <- function(P, s){ # dunif(P, 1 - s, 1 + s) - dlnorm(P, 0, s) + 1 + dlnorm(P, 0, s) } SDP_Mat <- determine_SDP_matrix(f, pars, x_grid, h_grid, sigma_g, pdfn) ```` diff --git a/inst/examples/Reed.md b/inst/examples/Reed.md index d21d903..dcbbe07 100644 --- a/inst/examples/Reed.md +++ b/inst/examples/Reed.md @@ -137,7 +137,7 @@ z_i <- function() 1 ```r pdfn <- function(P, s){ # dunif(P, 1 - s, 1 + s) - dlnorm(P, 0, s) + 1 + dlnorm(P, 0, s) } SDP_Mat <- determine_SDP_matrix(f, pars, x_grid, h_grid, sigma_g, pdfn) ``` @@ -197,7 +197,7 @@ q1 <- ggplot(policies, aes(stock, stock - value, color=variable)) + geom_point() q1 ``` -![plot of chunk policyfn_plot](http://farm9.staticflickr.com/8024/7680033282_4a534996f8_o.png) +![plot of chunk policyfn_plot](http://farm9.staticflickr.com/8008/7680052580_53e52b45b1_o.png) and the value function (at equilibrium): @@ -210,7 +210,7 @@ geom_vline(xintercept=opt$S) q2 ``` -![plot of chunk valuefn_plot](http://farm9.staticflickr.com/8143/7680033592_0e73026d8f_o.png) +![plot of chunk valuefn_plot](http://farm9.staticflickr.com/8025/7680052832_0425aba787_o.png) @@ -263,7 +263,7 @@ p0 <- ggplot(subset(dt,reps==1)) + p0 ``` -![plot of chunk p0](http://farm8.staticflickr.com/7251/7680034010_f0af30a30f_o.png) +![plot of chunk p0](http://farm9.staticflickr.com/8284/7680053220_5e069d9e69_o.png) @@ -278,7 +278,7 @@ p1 <- p1 + geom_line(aes(time, fishstock, group = reps), alpha = 0.2) p1 ``` -![plot of chunk p1](http://farm9.staticflickr.com/8144/7680034376_64f2a8b2cb_o.png) +![plot of chunk p1](http://farm9.staticflickr.com/8143/7680053520_b58f788447_o.png)