Closed ejardim closed 10 years ago
library(FLa4a) data(ple4) data(ple4.index) fit <- sca(ple4, FLIndices(ple4.index), qmodel=list(~s(age, k=4)), fit="assessment") fit <- simulate(fit, 2) dims(stkmodel(pars(fit)))["iter"]
library(FLa4a) data(ple4) data(ple4.index) fit <- sca(ple4, FLIndices(ple4.index), qmodel=list(~s(age, k=4)), fit="assessment") fit <- simulate(fit, 2) dims(stkmodel(pars(fit)))["iter"]