#####################
## SolveIASA model ##
#####################
## Parameters and intial conditions.
pars.solve.iasa = c(
b1 = 21870.897, b2 = 4374.179,
df1 = 0.104, dm1 = 0.098, df2 = 0.1248, dm2 = 0.1176,
sf1 = 0.069, sf2 = 0.05, sm1 = 0.028, sm2 = 0.05,
k1 = 98050.49, k2 = 8055.456, h1 = 1, h2 = .5,
ab = 0.054, ad = 0.1, v = 0.2, z = 0.1)
init.solve.iasa = c(
f1 = 33425.19, fs1 = 10864.901,
m1 = 38038.96, ms1 = 6807.759,
f2 = 3342.519, fs2 = 108.64901,
m2 = 3803.896, ms2 = 68.07759)
# Solve for point estimates.
solve.iasa.pt <- SolveIASA(pars = pars.solve.iasa,
init = init.solve.iasa,
time = 0:15, method = 'rk4')
## Set ranges 10 \% greater and lesser than the
## point estimates.
rg.solve.iasa <- SetRanges(pars = pars.solve.iasa)
## Calculate golobal sensitivity of combined parameters.
## To calculate global sensitivity to each parameter, set
## all as FALSE.
glob.all.solve.iasa <- CalculateGlobalSens(
model.out = solve.iasa.pt,
ranges = rg.solve.iasa,
sensv = 'n2', all = TRUE)Run the code above in your browser using DataLab