Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

tests

  • Loading branch information...
commit e3506f392ddbee8e33fb97bbe1d6699aee4eadea 1 parent 5111853
@cboettig authored
Showing with 15 additions and 0 deletions.
  1. +15 −0 inst/tests/matrices.R
View
15 inst/tests/matrices.R
@@ -0,0 +1,15 @@
+rm(list=ls())
+library(multipleuncertainty)
+f = function(x, h, p) 0.2 * (x-h) * (1 - (x-h) / 100) + (x-h)
+x_grid = 1:150
+h_grid = x_grid
+Tmax = 5
+
+out <- SDP_multiple_uncertainty(f, p, x_grid, h_grid, Tmax = 5, delta= 0.01,
+ sigmas =c(sigma_g=0.3, sigma_m=0.3, sigma_i=0.3),
+ pdfn = pdfn, profit = function(x,h) pmin(x, h))
+
+attach(out)
+
+
+plot(x_grid, x_grid - x_grid[D[,1]], ylab="escapement")
Please sign in to comment.
Something went wrong with that request. Please try again.