Nested management scenarios

[alko989]

For every new management scenario that is added using add.man.scenario all previous ones are copied with leading to nested scenarios.

library(spict)
inp <- pol$lobster
inp$dteuler <- 1/4
inp$maninterval <- c(1992, 1993)
inp$maneval <- 1993
fit <- fit.spict(inp)
fit <- add.man.scenario(fit, "A", ffac = 0)
fit <- add.man.scenario(fit, "B", ffac = 1)
fit <- add.man.scenario(fit, "C", breakpointB = 0.5)
# Now, management scenario "A" exists 4 times:
fit$man$A
fit$man$B$man$A
fit$man$C$man$A
fit$man$C$man$B$man$A