Open ejardim opened 5 years ago
data(ple4) data(ple4.index) stk <- propagate(ple4, 2) fit0 <- sca(ple4, FLIndices(a=ple4.index), fit='MP') fit <- sca(stk, FLIndices(a=ple4.index), fit='MP') fit1 <- iter(fit, 1)
dim(fit0@pars@stkmodel@centering) [1] 1 1 dim(fit1@pars@stkmodel@centering) params iter 1 1
data(ple4) data(ple4.index) stk <- propagate(ple4, 2) fit0 <- sca(ple4, FLIndices(a=ple4.index), fit='MP') fit <- sca(stk, FLIndices(a=ple4.index), fit='MP') fit1 <- iter(fit, 1)