## Reef-fish example: see Fenichel and Abbott (2014)
delta <- 0.02 # discount rate
upper <- 359016000 # upper bound on approximation space
lower <- 5e+6 # lower bound on approximation space
myspace <- aproxdef(50, lower, upper, delta)
## Two-dimensional example
ub <- c(1.5, 1.5)
lb <- c(0.1, 0.1)
deg <- c(20, 20)
delta <- 0.03
myspace <- aproxdef(deg, lb, ub, delta)
Run the code above in your browser using DataLab